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ARRANGEMENT OF 
PROGRAMS 

All the programs have been classified, explained and set out in 
an easy to read and enter format, with further programming 
suggestions and enhancements. We hope you enjoy this book and 
games within and continue to get the 'best' for and from your 
ATARI 130XE. 

In the programs throughout this book, spaces have been used to 
aid readability. These have been placed between reserve words 
like PRINT, FOR, GOTO, GOSUB and between the characters in 
strings. It is not necessary to put them between reserve words 
most of the time however occasionally the machine will demand 
it. So if you type in a line omitting the spaces and the 
machine rejects it with a error, retype it with the spaces. 
The only time you should type a space inside of a string is 
when you see the * symbol. This avoids confusion. 

The ATARI has a number of special graphics characters. These 
are obtained by pressing combinations of keys. The bulk of 
these characters are obtained by pressing the Control key and 
one of the alphabetic character keys. Inverse characters 
(reverse images of characters) are obtained by pressing the 
inverse key on the extreme bottom right hand side of the 
keyboard. Normal characters are restored by pressing this key 
once more. 

Frequently occurring (and easily overlooked) 
typing errors with the ATARI 130XE 

1. Do not confuse the letter with the digit (zero). 

2. Do not confuse the capital letter I with the numeric digit 
1 (one) . 

3. A comma and a full stop (period) are not interchangable . 

4. When a colon is required do not type a semi-colon (;). 
These two characters are not interchangeable. 

5. A double quote (") is not interchangeable with an 
apostrophe ( ' ) . 

6. Inside of character strings, spaces are mandatory if 
indicated by the * symbol. 



7. It is important to get the number of brackets inside a 
BASIC formulae correct otherwise the line will be rejected. 
The bracket symbols are () and not [ . 

8. The following characters are obtained by pressing the shift 
key and the numeric keys; ! "#$%&'<§( ) 

Overall advice 

If you type in a program line, press RETURN and the computer 
rejects it with an error message, then carefully compare the 
line with what's in the book. The line has been rejected 
because it has not been written according to the rules of 
BASIC. Retype the line correctly as per the book. 

All BASIC program statements must be in upper case. Any 
reserve word in lower case will rejected as an error. Also 
reserve words may not be in the inverse mode. 

Once you have typed in a program save a copy of it to tape or 
disk. Under no circumstances type in a program and RUN it 
without doing this first. Most of the programs in this book 
contain POKEs or machine language. If you make a mistake 
typing in a program and then RUN it, these are liable to erase 
your program or lock up the machine. If the error is 
disasterous enough, the only way to restart the machine is to 
switch it off and on, losing your program ! ! ! If by some 
misfortune you should do this and the machine locks then press 
RESET. If control doesn't go back to BASIC then you have lost 
your program otherwise you may still have an oppotunity to save 
it to tape or disk. 

Save a program to tape with 

SAVE "C: FILENAME" 
or to disk with 

SAVE "D: FILENAME" 

After you have typed in a program and saved it to either tape 
or disk, it's safe to RUN it. Unfortunately just because the 
computer has accepted a program line doesn't mean that it's 
correct. You are likely to be presented with a number of error 
messages the first time you try to RUN a program. To some 
extent this can be prevented by using CHEXSUM in the next 
section but even that won't solve all problems. Here is a list 
of the most common error messages and their probable causes. 

ERROR- 17 AT LINE nnnn 



This generally means that you have typed in a line, caused a 
syntax error and didn't notice it. When a syntax error occurs, 
the word ERROR- is entered into the start of the bad line. So 
when the ATARI tries to execute the line it finds garbage. The 
error is repaired by retyping in the line correctly. 

ERROR- 12 AT LINE nnnn 

The computer has been told to GOTO, GOSUB, ON GOSUB or ON GOTO 
to a line and the line didn't exist. Check that the line which 
has the above statements in it has the right linenumber. Then 
check that the line it was told to goto actually exists. 

ERROR- 6 AT LINE nnnn 

The computer tried to read some information from a DATA 
statement with a READ statement and there wasn't enough data 
present. The most obvious cause of this error is a mistake in 
the DATA statements. Carefully go through the DATA statements 
making sure that all numbers are right. Check to see that no 
full stops have been exchanged for commas and vice versa. 

ERROR- 8 AT LINE nnnn 

The computer tried to read information from DATA statements, 
was expecting numeric information and got character information 
instead. The solution to this problem is the same as above. 
Check through your data statements and make sure that all the 
information is correct. Also make sure that the READ statement 
where the error occured is correct. 

ERROR- 3 AT LINE nnnn 

The computer used a number which was out of range. For example 
a POKE statement tried to use a number which was not in the 
range 0-255. If a POKE statement contains a variable then 
print the contents of the variable and find out how it got to 
that value. Generally happens when a READ statement fetches an 
incorrect DATA statement and the computer tries to POKE the bad 
data. Check the DATA statement. 

ERROR- 9 AT LINE nnnn 

A reference was made to an array or a string and an error 
occured. There are various reasons why this error has occured. 
They are: 

* A reference was made to an array which didn't exist. There 
are two reasons for this; the variable in the line where the 
error occurred was incorrect, or the variable named in the DIM 
statement was incorrect. Check these two sources. 

* An array reference was incorrect. It was either greater 
than 32767 or a negative number. Check that the array 
reference was in this range or was not greater than the 
dimension size. 



* A string variable must be declared with a DIM statement at 
the start of the program. If you get an array error for a 
string then either the string variable where the error occurred 
is wrong or the varaible in the DIM statement is wrong. 
When you have typed in a program and you can't get it running 
properly, even after numerous debugging attempts, then put the 
job at rest for a day or so. It often happens that you will 
find the bug at once after resuming the job. 



CHEXSUM 

The unique CHEXSUM program validation 

WHY 

When a book of programs such as this book is keyed in, 

everybody invariably makes reading and typing mistakes and then 

spends ages trying to sort out where and what is causing the 
error (errors). 

Even experienced programmers often cannot identify an error 
just by listing the relevant line and need to do the tedious 
job of going back to the book, especially with DATA statements. 

Realizing that this is a major cause of frustration in keying 
the program, we decided to do something about it. There is a 
short routine in this book which you should key in and save 
BEFORE you key in any of the games programs. 

Using this routine you will be able to find out if you made any 
keying errors at all and in which lines, before you even RUN 
the program. In effect this means that with this book you need 
not waste time looking for keying errors, you simply run the 
CHEXSUM routine and look at the display to identify lines 
containing errors. It's that easy. 

The principle behind the routine is a unique check sum which is 
calculated on each line of the program you have keyed into the 
computer. Compare this chexsum value with the value for that 
line in the list at the end of the program listing; if they are 
the same the line is correct, if not there is an error in that 
line. 

WHEN 

The simplest method is to enter the CHEXSUM program in now and 
save a copy of it to tape or disk. To save it to disk use 

LIST "D: CHEXSUM" 

To save it to tape use 

LIST "C: CHEXSUM" 
The LIST command saves a copy of the CHEXSUM program to either 
tape or disk in ASCII. It is only possible to reload an ASCII 
file using: 

For tape 

ENTER "C: CHEXSUM" 



For Disk 

ENTER "D:CHEXSUM" 

You can type in the CHEXSUM program at any time, even if you 
have started to type in a program. You cannot, of course LOAD 
in CHEXSUM from tape or disk because it will erase all you have 
typed so far. The obvious solution is to merge the programs. 
The CHEXSUM program should be saved onto a separate cassette to 
allow easy access. 

HOW CAN YOU TELL IF CHEXSUM HAS BEEN ENTERED 
CORRECTLY 

After having keyed in CHEXSUM it is very important that you 
know that CHEXSUM is working perfectly. Follow these 

instructions : 

1. Type in the CHEXSUM program and save it to disk or tape 
with the commands suggested above. 

2. Manually compare the CHEXSUM program you have typed in 
with the book. Get someone to read the book out to you while 
you check it against whats in the computer. 

3. Keep repeating steps 1 and 2 until the checksum program 
is perfect. 

Here is a listing of CHEXSUM and instructions on it's use: 

32000 TOTAL=0 

320 1 STMT AB=PEEK (136) + PEEK < 1 37 ) *256 

32020 NUM=PEEK tSTMTABi +PEEK (STMTAB+1 ) *256 

32030 IF NUM=320<30 THEM SOTO : : -;?070 

32040 IF PEEK<STMTAB+4>=0 THEN 32050 

3204 1 L I NETOTAL=0 : ? " L I HE ...NUMBER ; ,. „ " ; NUM :"* = .."; 

32043 FOR T=S'lMTAB+4 TO STMTAB+PEEK (STMTAB+2) -L 

32044 L I NETOTAL »L I NETOTAL+PEEK ( T i 

32045 NEXT T 

32046 TOTAL=TQTAL+L I NETOTAL 
32.049 ? LI NETOTAL 

32050 STMTAB=STMTAB+PEEK (STMTAB+?) 

32060 GOTO 32020 

32070 ? "TOTAL ^=^"5 TOTAL 



USING CHEXSUM 

CHEXSUM is a special program which generates a unique sum for 
each line in a program and a grand total of all sums. After 
each program listing is a table of checksums. You need only 
compare the numbers in the CHEXSUM table for each program with 
those generated by CHEXSUM. If two numbers differ, check that 
particular line. 

1. Type in your game program, PINGPONG, say. Save it to tape 
or disk. 

2. If you have just typed in a program then ignore this step 
otherwise LOAD in you game from tape or disk. 

3. Merge the CHEXSUM program onto the end of your program. Do 
this by putting the tape or disk containing the chexsum program 
into the drive and for disk typing: 

ENTER "D: CHEXSUM" 
for tape type: 

ENTER "C: CHEXSUM" 

4. Once the CHEXSUM program has been merged onto the end of 
your game program, enter GOTO 32000 to activate CHEXSUM. 

5. Chexsum will now output the checksum for the program. To 
halt the program press the Control and the '1' keys. Press 
again to restart output. 

6. Check your grand total with that in the book. If they 
differ a line has been entered incorrectly. Compare line 
numbers until you locate the bad ones and then edit them. 

7. Repeat steps 4 to 6 until the games program is debugged. 

8. When the games program is running satisfactorily, delete 
the Chexsum program from the end of your game. 

9. Finally save the debugged version onto a tape or disk. 



BOMBER 




CLASSIFICATION: Skill 

A plane is flying above and periodically dropping bombs on the 
cities below. You have a shield which you must use to explode 
the bombs with before they hit the ground. The longer the game 
runs the faster the bomber flies and the faster the bombs are 
dropped. After a hundred bombs are dropped the speed decreases 
and after a hundred catches the speed increases. Use joystick 
one to move the shield left and right. 

PROGRAMMING SUGGESTIONS 



Have more than one bomber flying overhead 
number of bombs that can be dropped. 



and 



increase 



the 



Program 
Variables 



PMBASE 
PM 



Program 
Structure 



5 - 

10 - 

100 - 

1000 

5000 - 



General purpose variable 
Pointer to player missile data 
Page pointer to player missile data 

Holds data begin read from data statement 



8 Clear memory and read in programs 
85 Set up graphics mode 
120 Data for players 

Call machine langugae program 
5410 Data for machine language program 
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Listing 

7 ™ I'— 792 TD 33792 + 1023: POKE 1,0: NEXT I 

7 FOR 1=^07^0 TO 30720+78: READ A: POKE I, A: NEXT I 

10 POKE 706tl28 TD 29510!READ fi:P0KE I,A:NEXT I 

20 PM=PEEK ( 1 06 ) : PMBASE=PM*256 

30 GRAPHICS 1 

35 PRINT #6; "CAUGHT: ^ ^ ^ „HITS- " 

40 POKE 559,62 

50 POKE 53277,3 

60 POKE 54279, PM 

70 POKE 53256,2: POKE 53257,2 

80 POKE 704,77: POKE 705, 88: POKE 706,88 

85 POKE 707,88 

j?2 ™I* ^ 32 A 48 ' 18 ^255, 56, 48, 32, 0,0,0,0,0,0,0,0, , , , 

I 1 ® J>£TA ^,^5,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,™L e^ ' 123 '^, 255, 123, 0,0, 0,0, 0,0,0,0.0,0 a ' 
1000 A=USR( 112*256) i ,,,.,, ,w 

5000 ^™ ( 32 ; 2 ^112,32,72, 1 12,32,1 51 ,1 12 ,32,41,1 1 3,32,239,11 

5010 DATA'liS 32^206 U3, 76, 3, 112, 169, 0,141, 5,115,169, 50, 141 
,4 , llj, 16V ,8,141 

5020 DATA 7,115,169,50,141,19,115,169,150,141,18,115,169,0,1 
41,62,115,141,63,115 

5030 DATA 141,66,115,141,56,115,169,5,141,65,115,96,173,60,1 
15,240,4,206,60,115 

5040 DATA 96, 173, 65, 115, 141, 60, 115, 173, 7, 115, 201, 4, 240, 5, -?01 
,8,240,26,96,173 

5050 DATA 5,115,240,4,206,5,115,96,169,8.141,7,115,32,127 11 
3,201 , 100, 176,249 ■>■>■.■ 

5060 DATA 141,4,115,96,173,5,115,201,163,240,4,238,5,115,96, 
169 ,4,141,7,115 

5070 DATA 32,127,113,201,100,176,249,141,4,115,96,173 59 11=; 
,240,4,206,59,115,96 ' ' ' J 

5080 DATA^173, 65., 115^41, 59, 115, 173, 62, 115, 201, 1,240, 6, 32, 19 

5090 DATA 247,'ll2,'l73,'63,115,201,l,240,4,32.222,112,96 3"? 56 
,113,96,32,127,113 ' " ' ' 

5100 DATA 201,210,176,17,169,1,141,62,115,173.5,115 ■ 4 1 ^ 1 
15,173,4,115,141,32 •*-->* 

5110 DATA 115,96,32,127,113,201,200,144,17,169,1,141,63 1 1 -, 
173,5,115,141,47,115 ,-,...-, 

5120 DATA 173,4,115,141,46,115,96,173,32,115,201,155,240 4 " 
38,32,115,96,169,0 ,,,,-- u,h,~ 

5130 DATA 141,62,115,169,220,141,32,115,238,56,115,96,173,46 
,115,201,155, 240 , 4 , 238 

5140 DATA 46,115,96,169,0,141,63,115.169,220.141,46,115 ^. 8 
56,115,96,32,247,114 ' ->--■* 

5150 DATA 201,4,240,5,201,8,240,12,96,173,19,115 ? i ''40 ^ 
,206,19,115,96 '' '*" ' " 

5160 DATA 173,19,115,201,163,240,3,238,19,115,96,173,13 -708 
170,41,4,208,6,138 '" ' " ' ' 

5170 DATA 41, 8, 20B, 20, 96, 169, 0,141, 62, 115, 169, 220, 141 -^ i , s 
,169,0,141,30,208 "''"'' 
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5180 DATA 238,66, 1 15 , 96 , 169 , , 141 , 63 , 1 15 , 169,220, 141 ,46, 115, 

169,0,141 ,30,208,238 
5190 DATA 66,1 15,96,173, 10,210,96,173,66,115,32,172,113, 162, 

3, 160,0,189, 199,113 
5200 DATA 153,135,125,200,202,208,246,173,56,115,32,172,113, 

162,3,160,0,189,199,113 
5210 DATA 153,144,125,200,202,208,246,96,162,3,56,160,0,253, 

202,113,144,3,200,208 
5220 DATA 248 ,125, 202 , 1 1 3 , 72 , 1 52 , 9 , 1 6 , 1 57 , 1 99 , 1 1 3 , 1 04 , 202 , 20 

8,231 ,96,0,0,0, 1 
5230 DATA 10,100,173,66,115,201 ,100,240,8,173,56,115,201 ,100 

,240, 10,96,206,65, 115 
5240 DATA 169,0,141,66,115,96,238,65,115,169,0,141,56,115,96 

,120,32,202,114,160 
5250 DATA 1 4 , 1 62 , , 1 89 , 253 ,114,149,176, 232 , 1 36 , 208 , 247 ,32,10 

8, 114, 160, 14, 162,0, 181 
5260 DATA 1 76 , 1 57 , 253 ,114,232,136, 20B , 247 , 1 60 , 1 4 , 1 62 , , 1 89 , 1 

1 , 1 1 5 , 1 49 , 1 76 , 232 ,136, 208 
5270 DATA 247,32,108,114,160,14,162,0,181,176,157,11,115,232 

,136,208,247,160, 14, 162 
5280 DATA , 189 , 25 , 1 15 , 149 , 176 , 232 , 136 , 208 , 247 , 32 , 108 , 1 14 , 16 

0,14,162,0,181,176,157 
5290 DATA 25,115, 232 ,136, 208 , 247 , 1 60 , 1 4 , 1 62 , 0-, 1 89 , 39 , 1 1 5 , 1 49 

,176, 232 ,136, 208 , 247 , 32 
5300 DATA 108, 114, 160, 14, 162,0, 181 , 176 , 157 , 39 , 1 15 , 232 , 136 , 20 

8 , 247 ,32,216.114,88,96 
5310 DATA 165,183,197,182,240,68,160,0,165,184,24,105,46,145 

, 176, 169,32,24, 101 , 182 
5320 DATA 168, 166, 185, 169 , , 145 , 178 , 200 ,202 , 16 , 250 , 169 , 32 , 24 

, 101 , 183, 141 ,64, 115, 162 
5330 DATA 0,142,53, 115,166, 185, 172,53,115,177, 180,238,53, 115 

,172,64,115,1 45 , 1 78 , 238 
5340 DATA 64,115, 202 ,16, 237 , 1 65 ,183,1 33 ,182,165, 1 84 , 1 33 , 1 89 , 

96, 165, 184, 197, 189,208, 182 
5350 DATA 96 , 1 73 , 57 , 1 1 5 , 4 1 , 1 5 , 1 7E , 1 89 , 230 ,114, 238 , 57 , 1 1 5 , 96 , 

160, 14, 162,0, 131 . 176 
5360 DATA 157,68,115, 232 , 1 36 , 208 ,247,96,160,14,162,0,189,68, 

115,149,176, 232 , 1 36 , 208 
5370 DATA 247,96,1,2,3,4,5,10,7,8,7,8,11,4,2,4,1,4,8,173 
5380 DATA 0,211 , 73 , 255 , 96 , , 208 , , 132 , , 120 , , , , 8 , , 16 , , 

,1 
5390 DATA 208 , , 1 33 , 20 , 1 20 , , , , 8 , , 1 6 , , , 2 , 208 ,0,1 34 , 40 , 1 

20,0 
5400 DATA 0,0,8,0,16,0,0,3, 208 , , 1 35 , 60 , 120 , , , , B , , , 
5410 DATA 0,0,0,79,0,0,0,0,0,0,0,0,0,5,0,0,0,0,156 



12 



ChexSum Tables 



5 


= 


1421 


7 


= 


1494 


8 


= 


1568 


10 


= 


277 


20 


= 


1124 


30 


= 


144 


35 


= 


1218 


40 


= 


420 


50 


= 


406 


60 


= 


473 


70 


= 


782 


80 


= 


1203 


85 


= 


378 


100 


= 


2454 


110 


= 


2368 


115 


= 


2372 


120 


= 


2188 


1000 


= 


716 


5000 


= 


3467 


5010 


= 


3393 


5020 


= 


3601 



5030 


= 


3556 


5040 


= 


3405 


5050 


= 


3450 


5060 


= 


3358 


5070 


= 


3611 


5080 


= 


3549 


5090 


= 


3484 


5100 


= 


3533 


5110 


= 


3590 


5120 


= 


3507 


5130 


= 


3706 


5140 


= 


3623 


5150 


= 


3285 


5160 


= 


3509 


5170 


= 


3446 


5180 


= 


3616 


5190 


= 


3567 


5200 


= 


3748 


5210 


= 


3630 


5220 


= 


3390 


5230 


= 


3619 



5240 


= 


3559 


5250 


= 


3703 


5260 


= 


3866 


5270 


= 


3745 


5280 


= 


3714 


5290 


= 


3769 


5300 


= 


3719 


5310 


= 


3726 


5320 


= 


3761 


5330 


= 


3776 


5340 


= 


3956 


5350 


= 


3625 


5360 


= 


3788 


5370 


= 


2398 


5380 


= 


2652 


5390 


= 


2736 


5400 


= 


2390 


5410 


= 


2037 


OTAL 


- 


166569 
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OTHELLO 
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CLASSIFICATION: Strategy 

This game uses the computer as a medium for two people to play 
the game of Othello. Pressing / or ? will display all the 
legal moves on the board as question marks. Placing the cursor 
over any man and pressing fire will do the same. If you have 
no legal moves then press T to change who's turn it is. 
Displayed on the right hand side of the screen is : 

Who ' s turn (X or 0) 

The cursors current position x,y 

The number of X's 

The number of O's 

The amount of free spaces on board 

Use either joystick to move the cursor over the board. Press 
fire on either joystick to make a move. If you don't know how 
to play use ? to display legal moves and observe the results of 
making these moves. The object of the game is to have the most 
men at the end of the game. If a player has no legal moves 
then it becomes the other players turn to move (use T) . The 
game is over when there are no legal moves for either player. 
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PROGRAMMING SUGGESTIONS 



The board disp 
A command to t 
machine could 

Program 
Variables 

B() 

c 

CURH 

CURV 

LOOP 



OLDCUR 

P 

PH 

R 

SCREEN 

STOR 

TURN 

V 

VALID 

X 

Z 

ZZ 

routine 

Program 
Structure 

10 
100 - 800 
1000 - 1560 



91( 

u 

10100 
10150 
11000 
12000 
20000 
30000 



1 

10130 

10220 

11140 

12040 

20030 

30070 



lay could be done in high resolution with color, 
ake back the last move made would be useful. The 
play against a human. 



Holds the position of men on the board 

Local variable 

Cursor's horizontal position 

Cursor's vertical position 

Loop counter 

Used in count men routine 

Cursor's old position 

Index to array 

Holds inital value of P 

Local variable 

Address of start of video RAM 

Stores value of character under the cursor 

Who's turn 1 or -1 

Used in move cursor routine 

if move not valid else =1 

Local variable, in delay routine etc. 

Local variable 

Counter for display in find all legal moves 



Set colors and jump to initialization 

Make a move 

Find and make legal moves 

Delay routine 

Invalid move routine 

Draw the board 

Count number of men 

Print information 

Move the cursor 

Put the cursor on screen 

Initialize the system 

Main loop 
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Listing 



Set colors and jump to 
initialization 



10 SETCOLOR i .0, 12: SETCOLOR 2,0,0: POKE 752 , 1 : SOTO 20000 
50 DATA -10,-9,-8,-1 , 1 ,8,9, IB 



Make a move 



100 IF ST0R=31 THEN STOR=14 

110 VAL1D=0:IF ST0RO14 THEN 1000 

120 RESTORE 50: C=CURV : R=CURH 

200 FOR LQOF-1 TO 8 

2 1 P=R*9+C : PH=P 

22.0 READ Z 

230 P=P+Z 

240 IF B<P>=0 THEN 500 

250 IF B(P)=TURN THEN 500 

260 P=P+Z 

270 IF B(P)=B THEN 500 

280 IF B(P)=-TURN THEN GOTO 260 

290 P=PH 

300 VALID=1 

310 B(P)=TURN 

320 P=P+Z 

330 IF B(P)=TURN THEN 500 

340 GOTO 310 

500 NEXT LOOP 

600 IF NOT VALID THEN SOTO 9100 

610 ST0R=47:IF TURN=1 THEN ST0R=56 

700 TURN=-TURN 

800 SOTO 30000 



Find and make legal moves 



1000 POKE OLDCUR,STOR: ZZ = 63: v'ALID=0:FOR C= 1 TO 8: FOR P=l TO 

8: RESTORE 50: POSITION 20,0:? Tl ; " „." ; : ZZ = ZZ-1 
1010 P=R*9+C: IF B(P) THEN 15 IB 

1200 FOR LOOP--1 TO 8: P=R*9+C: PH=P: READ Z:P=P + Z:IF B<P>=0 OR 

B(P)=4 THEN 1500 

1250 IF B(P)=TLIRN THEN 1500 

1270 P=P+Z:IF B(P)=B OR B(P)=4 THEN 1500 

1280 IF BCF>=-TURN THEN 1270 

1310 V AL I D= 1 : B ( PH ) =4 : L00F-8 

1500 NEXT LOOP 
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1510 NEXT R:NEXT C 

152E IF VALID THEN BDTO 1550 

1530 POSITION 8,23:? "BamEEEIMmaSMSBEim" 

1540 GOSUB 9000: TURN=-TURN: GOTO 30000 



50 



P=CURH*9+CURV: IF B(P>=4 THEN ST0R=31 



1560 GOTO 30000 



Delay routine 



9000 FOR X=l TO 1000: NEXT X : RETURN 



Invalid move routine 



9100 POSITION 7,23:? "„..":: POSITION 10, 

KEEHB" ;s GOSUB 9000: GOTO 30000 
9998 REM 6.STRETT0N 85 



•MtszEiaaam 



Draw the board 



10000 ? CHR*(125> :? 

10010 FOR C=l TO 8: FOR R=l TO B:P=R*9+C:IF B(Pi=4 THEN ? " ? „ 

; :B<P)=0:NEXT Rs? :? :NEXT C:GOTO 10100 
10050 IF NOT B(F'i THEN ? ".^";:BOTQ 10080 

10060 IF B<P)=1 THEN ? "X Jl ";:NEXT R: ? :? :NEXT C:BOTO 101E0 
10070 ? "0 A "| 
1008B NEXT Rs'? :? : NEXT C 



Count number of men 



10100 X=B:O=0:FOR R=10 TO 80: IF NOT B(R) THEN NEXT R:GOTO 10 

1 50 
10110 IF B(R)=1 THEN X = X + 1 
10120 IF B<R>=-1 THEN 0=0+1 
10130 NEXT R 
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Print information 



10150 POSITION 33,8:? "X:";X; 

10160 POSITION 33,10:? "0:";0; 

10170 POSITION 30,14:? "FREE: " ; 64- (X+Oi : 

10180 POSITION 30,0: IF TURN=1 THEN ? " X ' 

10190 IF TURN=-1 THEN ? "0"; 

10200 ? " S^MOVE"; 

10210 POSITION 8,23:? "T ^TOGGLES ^TURN" ; 

10220 RETURN 



Move the cursor 



1 1 B00 
11010 
11020 
1 1030 
11B40 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
1 1 1 20 
1 1 1 30 
1 1 1 40 



V=STICK<0>: IF V=15 THEN V=STICK(1) 
IF V=15 THEN RETURN 
IF V=14 THEN CURV=CURV-1 
IF V=6 THEN CURV=CURV-1:CURH=CURH+1 
V=7 THEN CURH=CURH+1 



THEN CURH=CURH+1 : CURV=CURV+1 



IF 

IF V= 

IF V=13 THEN CURV=CURV+1 

IF V=9 THEN CURV=CURV+1:CURH=CURH-1 

IF V=ll THEN CURH=CURH-1 

IF V=10 THEN CURH=CLIRH-1:CURV=CURV-1 

IF CURH<1 THEN CURH=CURH+8 

IF CURH>8 THEN CURH=CURH-8 

IF CURV<1 THEN CURV=CURV+8 

IF CURV>8 THEN CURV=CURV-8 

RETURN 



Put the cursor on screen 



12000 POKE OLDCUR,STOR 

12010 OLDCUR=SCREEN+ (CURV*80> + (CURH*2) 

1 2020 STOR=PEEK ( OLDCUR ) 

12030 POKE OLDCUR, 128 

12040 RETURN 



Initialize the system 



20000 ? CHR*(125) :DIM B<9B>:F0R X=0 TO 90: B ( X ) =0: NEXT X 
20020 B<41)=1:B(49)=1:B(4E)=-1:B(50)=-1:TL)RN=1 

20030 SCREEN=40000: CURH=1 : CURV=1 : ST0R=14: 0LDCUR=SCREEN+ (CURV* 
80>+<CURH*2> 
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Main loop 



30000 BOSUB 10000: REM DRAW SCREEN 

30010 GOSUB 11000: REM ADJUST CURSOR 

30020 GOSUB 12000: REM PUT CURSOR 

30030 IF ( NOT STRIG(D) OR ( NOT STRIG<0)> THEN 100 

30040 G=PEEK(754) : IF 6=45 THEN POKE 754,255: TURN=-TURN: GOTO : 

0000 
30050 POSITION 33,3:? CURH; " ^" ; CURV; 

30060 IF 6=38 OR 6=102 THEN POKE 754,255: GOTO 1000 
30070 POKE 77,0:FOR X=l TO 6:NEXT X : POKE OLDCUR, STOR: FOR X=l 

TO 3:NEXT X : GOTO 30010 



ChexSum Tables 



10 


= 


1146 


50 


= 


1162 


100 


= 


713 


110 


= 


720 


120 


= 


1055 


200 


= 


407 


210 


= 


1 1 33 


220 


= 


2E1 


230 


= 


589 


24B 


= 


577 


250 


= 


710 


260 


= 


589 


270 


= 


577 


280 


= 


890 


290 


= 


408 


300 


= 


337 


310 


= 


657 


320 


= 


589 


330 


= 


710 


340 


= 


130 


500 


= 


173 


600 


= 


485 


610 


= 


1 1 85 


70E 


= 


469 


800 


= 


1 15 


1000 


= 


3725 


1010 


= 


1 295 


1200 


= 


3719 


1250 


= 


726 


1270 


= 


1773 


1280 


= 


889 


1310 


= 


1347 



1500 


= 


173 


1510 


= 


349 


1520 


= 


400 


1530 


= 


3809 


1540 


= 


887 


1 550 


= 


1705 


1560 


= 


115 


9000 


= 


716 


9100 


= 


4238 


10000 


= 


422 


10010 


= 


4227 


1 0050 


= 


928 


1 0060 


= 


1 539 


10E70 


= 


211 


10080 


= 


498 


10100 


= 


2185 


10110 


= 


1102 


10120 


= 


1159 


10130 


= 


171 


10150 


= 


746 


10160 


= 


746 


10170 


= 


1466 


10180 


= 


777 


10190 


= 


549 


10200 


= 


570 


10210 


= 


1445 


10220 


= 


58 


11000 


= 


1399 


11010 


= 


395 


11020 


= 


863 


11030 


= 


1409 


11040 


= 


853 



11050 


= 


1407 


11060 


= 


861 


1 1 070 


= 


1412 


110B0 


= 


864 


11090 


= 


1420 


11100 


= 


841 


11110 


= 


850 


11120 


= 


835 


1 1 1 30 


= 


844 


11140 


= 


58 


1 2000 


= 


355 


12010 


= 


1308 


12020 


= 


577 


12030 


= 


339 


12040 


= 


58 


20000 


= 


2254 


20020 


= 


3127 


20030 


= 


2891 


30000 


= 


1077 


300 1 


= 


12B2 


30020 


= 


1085 


30030 


= 


396 


30040 


= 


2169 


30050 


= 


778 


30060 


= 


1295 


30070 


= 


2309 



TOTAL 



96503 
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MOUNTAINS 




again a 
counter 
joystick port 1. 



CLASSIFICATION: Arcade 

Fly the ship through the mountains for as long as possible 
without hitting the mountains. If your ship tounches the 
mountains the hit count is incremented. Every now and 
missile will fly by and you must avoid it or the hit 
will be incremented. Move the ship usin 

PROGRAMMING SUGGESTIONS 

Increase the intelligence of the enemy missiles so that when 
they come hurtling across the screen they will seek your craft 
out. Add objects to the bottom of the landscape that you have 
to pick up to keep the game going. Give the player a limited 
amount of fuel and time to complete his journey through the 
mountains . 
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Program 
Variables 



PMBASE 
A 



General purpose variable 
Pointer to player/missile area 
Dummy variable 



Program 
Structure 

1 - 80 Initialize memory and variables 

90 Call machine language program 

100 - 120 Data for players 

2000 - 2114 Data for machine language program 
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Listing 



1 PRINT CHR* (125); "INITIALIZATION ^PLEASE^WAIT" 

5 FOR 1=30720 TO 30720+48: READ A: POKE I, A: NEXT I 

6 FOR 1=28672 TO 29820: READ A: POKE I, A: NEXT I 

7 FOR 1=33792 TO 33792+1 023: POKE 1,0: NEXT I 
1 POKE 1 06 , 1 28 

20 PM=PEEK ( 106) : PMBASE=PM*256 

30 GRAPHICS 1 

40 POKE 559,62 

50 POKE 53277,3 

60 POKE 54279, PM 

70 POKE 53256,1 

80 POKE 704, 77: POKE 705,88: POKE 706,88 

90 A=USR( 112*256) 

100 DATA 128,192,248,228,226,255,255,124,0,0,0,0,0,0,(3,0,0, 

110 DATA 0, 0,123, 255, 255, 123, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, A, 
120 DATA 0,0,222,255,255,222,0,0,0 ''''»' >«.*>, 

2000 0^32^112^32^216,113,32,138,112,32,77,114,32,169,1 

2002 DATA Jl4,'32, 1871137238, 124, 116, 76, 3, 112, 169, 1,141, 123,1 

16,141,214,113,169,206 
2004 DATA 141,88,116,169,50,141,87,116,169,0,141,74 115 141 

73,115,133,77,141,30 '' 

2006 DATA 20S, 162, 4, 160, 0,185, 90, 112, 153, 128, 125, 200, 202, 208 
,246,162,6,160,0,185 , - -, -o 

2008 DATA 94,112,153,139,125,200,202,208,246,96,40,41 5'~ "'6 

51,35,47,50,37,26 
2010 DATA 206,127,116,96,162,3,56,160,0,253,134,112,144,3,^0 

0,208,248,125,134,112 ' "' 

2012 DATA 72,152,9,16,157,131,112,104,202,208,231,96,0,0,0,1 
,10,100,174,127 ' 

2014 DATA 116,208,213,162,60,142,127,116,162,0,160,3 9,189,14 

9,125,157,148,125,189,169 
2016 DATA 125, 157, 168, 125, 189, 189, 125, 157, 188, 325, 18=5 ''09 1 •? 

5,157,208,125,189,229,125,157 ' 

2B1S ^T A 22B ii 25 ; 189 ' 249 ' 125 ' 157 ' 248 ' 1Z5 '189,13,126,157,12, 
1 *i6 , 1 89 , 0-3 , 1 26 , 1 57 , 32 , 1 26 

2020 DATA 189,53,126,157,52,126,189,73,126,157,72,126,189,93 

,126,157,92,126,189,113 
2022 DATA 126,157,112,126,189,133,126,157,132,126,189,153 1"? 

6, 157, 152, 126, 189, 173, 126, 157 
2024 DATA 1 72 , 126 , 189 , 193 , 126 , 157 , 192 , 126 , 189 , 213 , 126 , 157 , ~>1 

2,126,189,233,126,157,232,126 
2026 DATA 189,253,126,157,252,126,232,136,208,138,32 59 113 

96,173,73,115,32,104,112 ' ' ' ' 

2028 DATA 162 , 3 , 160 , , 189 , 1 31 , 1 12 , 153 , 1 32 , 125 , 200 , 202 , 20R , 24 

6,173,74,115,32,104,112 

2030 DATA 162, 3, 160, 0,189, 131, 112, 153, 145, 125, 200, 202, 208, -?4 
6,96,169,167,133,240,169 ' 

2032 DATA 125,133,241,160,0,162,18,169,0,145,240,169,20,24,1 
01,240,133,240,169,0 ' ' 

2034 DATA 101,241,133,241,202,208,236,32,176,113,174,214,113 
,169,167,133,240,169,125,133 

2036 ?29? 2 t0i!24l?l33!24l 145 ' 240 ' 165 ' 240 ' 24 ' 105 ' 20 ' 133 ' 240 ' 

22 



2038 DATA 202,208,236,169,5,24,109,214,113,141,215,113,56,16 

9,20,237,215, 113,240,31 
2040 DATA 170,169,15,133,240,169,127,133,241 ,160,0,169,3,145 

, 240 ,165, 240 , 56 , 233 , 20 
2042 DATA 133 , 240 , 165 , 241 , 233 , , 133 , 241 , 202 , 20B , 236 , 96 , 173 , 1 

0,210, 170,41 , 1 ,208, 17 
2044 DATA 138 , 41 , 12B , 208 , 1 , 96 , 173 , 214 , 1 13 , 201 , 15 , 240 , 3 , 238 , 2 

14,113,96,173,214,113 
2046 DATA 201,1, 240 , 232 , 206 , 2 1 4 , 1 1 3 , 76 , 1 84 , 1 1 3 , 7 , , 1 73 , 77 , 1 1 

6,13,78,116,240,12 
2048 DATA 173,77,116,208,3,206,78,116,206,77,116,96,169,7,14 

1,77,116,169,0,141 
2050 DATA 78,116,32,71,114,201,1,240,16,201,2,240,22,201,4,2 

40,30,201 ,8,240 
2052 DATA 36,32,57,114,96,174,73,116,240,4,202,142,73, 116,96 

,174,73,116,224,151 
2054 DATA 240 , 4 , 232 ,142,73,116,96,174,74,116, 240 , 4 , 202 ,142,7 

4, 116,96, 174,74,116 
2056 DATA 224 , 205 , 240 , 4 , 232 , 1 42 , 74 , 1 1 6 , 96 , 1 73 , 74 , 1 1 6, , 240 , 8 , 2 

06,74,116,169,20,141 
2058 DATA 126,116,96,173,0,211 ,73,255,96,173,123,116,208,32, 

32,252,115,201 ,210,176 
2060 DATA 3,32,93,114,96,169,1,141,123,116,32,252,115,201,15 

1,176,249, 141 ,87,116 
2062 DATA 169,206,141 ,88,116,96,173,91 ,116,13,92,116,240,32, 

173,91,116,208,3,206 
2064 DATA 92,116,206,91,116,96,173,88,116,240,14,206,88,116, 

169,7,141,91,116,169 
2066 DATA , 141 , 92 , 1 16 ,96 , 169 , , 1 41 , 123 , 1 16 , 1 69 , 7 , 141 , 91 , 1 16 

, 169,0, 141 ,92, 116 
2068 DATA 96,173,128,116, 240 ,4,32, 205 ,114,96,173,132,2,240,1 

,96, 173,73, 116, 141 
2070 DATA 101,116,173,74,116,24,105,8,141,102,116,169,1,141, 

128, 116,96, 173, 105, 116 
2072 DATA 13,106,116, 240 , 1 2 , 1 73 , 1 05 , 1 1 6 , 208 , 3 , 206 ,106,116,20 

6,105,116,96,173,102,116 
2074 DATA 201 ,206,240,14,238,102,116,169,5,141 ,105,116, 169,0 

,141 ,106, 116,96, 169,0 
2076 DATA 141,128,116,96,173,4, 208 ,41,1, 208 ,15,173,12, 208 , 4 1 

,2,208, 17, 173,13 
2078 DATA 208,41 , 4 , 20B , 27 , 96 , 238 , 73 , 1 15 , 169 , , 141 ,30,208,96, 

169,200,141 ,87,116 
2080 DATA 141 ,88,116,169,0,141,123,116,32,18,115,96,169,200, 

141 ,87, 116, 141 ,88,116 
2082 DATA 141,101,116,141,102,116,169,0,141,123,116,141,30,2 

08 , 1 4 1 , 1 28 , 1 1 6 , 238 ,74,115 
2084 DATA 96 , ,0 , 120 , 32 , 21 , 1 16 , 1 60 , 14 , 162 , , 189 , 66 , 1 16 , 149 , 1 

76 , 232 ,136, 208 , 247 
2086 DATA 32,171,115,160,14,162,0,181,176,157,66,116,232,136 

,208,247,160,14,162,0 
2088 DATA 189,80,116,149,176,232,136,208,247,32,171 ,115,160, 

14,162,0,181,176,157,30 
2090 DATA 116,232,136,208,247,160,14,162,0,189,94,116,149,17 

6 , 232 ,136, 208 , 247 ,32,171 
2092 DATA 115,160,14,162,0,181,176,157,94,116,232,136,208,24 

7,32,35,116,88,96,165 
2094 DATA 183,197,182,240,68,160,0,165,184,24,105,46,145,176 

,169,32,24, 101 ,182,168 
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2096 DATA 166,185,169,0,145,178,200,202,16,250,169,32,24,101 

,183,141,129,116,162,0 
2098 DATA 142,122,116,166,185,172,122,116,177,180,238,122,11 

6,172,129,116,145,178,238,129 
2100 DATA 116,202,16,237,165,183,133,182,165,184,133,189,96, 

165, 184, 197, 189,208, 182,96 
2102 DATA 173,124,116,10,144,2,73,29,141,124,116,96,173,10,2 

10,173,10,210,173,10 
2104 DATA 210,173,10,210,96,160,14,162,0,181,176,157,130,116 

,232,136,208,247,96,160 
2106 DATA 14,162,0,189,130,116,149,176,232,136,208,247,96,1, 

2,3,4,5,10,7 
2108 DATA 8,7,8,11,4,2,4,1,4,8,0,208,0,132,0,120,0,0,0,8 
2110 DATA 0,16,0,0,1,208,0,133,20,120,0,0,0,8,0,16,0,0,2,208 

2112 DATA 0,134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,120,0 
2114 DATA 0,8,0,0,0,0,0,0,79 



ChexSum Tables 



1 


= 


2276 


5 


= 


1446 


6 


= 


1587 


7 


= 


1421 


10 


= 


277 


20 


= 


1124 


30 


= 


144 


40 


= 


420 


50 


= 


406 


60 


= 


473 


70 


= 


371 


80 


= 


1203 


90 


= 


716 


100 


= 


2810 


110 


= 


2372 


120 


= 


1360 


2000 


= 


3534 


2002 


= 


3688 


2004 


= 


3613 


2006 


= 


3589 


2008 


= 


3458 


2010 


= 


3639 


2012 


= 


3320 


2014 


= 


3878 


20 1 6 


= 


4118 


2018 


= 


3892 



2020 


= 


3811 


2022 


= 


4086 


2024 


= 


4089 


2026 


= 


3820 


2028 


= 


3724 


2030 


= 


3807 


2032 


= 


3580 


2034 


= 


3994 


2036 


= 


3621 


2038 


= 


3741 


2040 


= 


3700 


2042 


= 


3629 


2044 


= 


3646 


2046 


= 


3488 


2048 


= 


3539 


2050 


= 


3307 


2052 


= 


3568 


2054 


= 


3566 


2056 


= 


3608 


2058 


= 


3701 


2060 


= 


3607 


2062 


= 


3620 


2064 


= 


364 1 


2066 


= 


3460 


2068 


= 


3508 


2070 


= 


3695 



2072 


= 


3780 


2074 


= 


3643 


2076 


= 


3399 


2078 


= 


3524 


2080 


= 


3667 


2082 


= 


3824 


2084 


= 


3505 


2086 


= 


3648 


2088 


= 


3773 


2090 


= 


3822 


2092 


= 


3678 


2094 


= 


3729 


2096 


= 


3701 


2098 


= 


4073 


2100 


= 


3962 


2102 


= 


3577 


2104 


= 


3749 


2106 


= 


3206 


2108 


= 


2363 


2110 


= 


2537 


2112 


= 


2637 


2114 


= 


1012 


OTAL 


_ 


225500 
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VOGONS 




CLASSIFICATION: Skill 

Move your player around the screen for as long as possible, 
avoiding the dreaded Vogons. There are three Vogons and they 
move around the screen at random, very quickly. At the start 
of the game you are prompted for the speed you want the Vogons 
to travel at. You may input any value between 1 and 255, with 
1 being the highest speed and 255 the slowest. Use joystick 1 
to move your player left, right, up and down. The longer you 
survive the more the score counter is incremented. When you 
are hit by a Vogon the score counter is set to zero. 

PROGRAMMING SUGGESTIONS 

Plant mines on the screen to restrict the area your player can 
move in and add 'bombs' that will disable or freeze your 
movement temporarily. 
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Program 
Variables 



PMBASE 

PM 

A 

Program 

Structure 

1 - 

10 - 
90 
100 
5000 



General purpose variable 
Location of player mlssle data 
Pointer to player missile data 
Holds data read from data statements 



6 Clear the player area and read data 
85 Setup the player missiles 

Call machine language program 
130 Data for players 
5460 Data for machine language program 
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Listing 



1 FOR 1=33792 TO 33792+1023: POKE I,0:NEXT I 

5 FOR 1=30720 TO 30720+79: READ A: POKE I, A: NEXT I 

6 FOR 1=28672 TO 29600-.READ A: POKE I,A:NEXT I 
10 POKE 106,128 

20 PM=PEEK (106): PMBASE=PM*256 

25 PRINT CHR* ( 125) ;: PRINT "WHAT ...SPEED ^" j 

26 INPUT A: IF A< 1 OR A>9 THEN GOTO 26 

27 POKE 29595, A 
30 BRAPHICS 1 

35 POSITION 0,0: PRINT #6; "TIME: *. ^ ^ ^ ^SPEED: " 

40 POKE 559,62 

50 POKE 53277,3 

60 POKE 54279, PM 

70 POKE 53256,3: POKE 53257, 3: POKE 53258,3: POKE 53259,: 

80 POKE 704,77: POKE 705, 88: POKE 706,88 

85 POKE 707,77 

90 A=USR( 112*256) 



100 



Data for players 



DATA 128,192, 248 ,228,226, 255 , 255 ,124,0,0,0,0,0,0,0,0,0, 

0,0,0 

110 DATA 0,0,123,255,255,123,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
120 DATA 0,0,222,255,255,222,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
130 DATA 0,0,222,255,255,222,0,0,0,0,0,0,0,0,0,0,0,0,0,-0 



Data for machine language 
program 



5000 DATA 32,21 ,112,32, 169,112,32,253,112,32,101,114,32,44,1 

14,32,87,112,76,3 
5010 DATA 112,169,0,141,143,115,169,50,141 ,91,115,141,90,115 

,169,8,141,107,115,169 
5020 DATA 0, 141 ,105, 115, 169,50, 140, 104, 115,169,50, 141 , 119, 11 

5, 141 , 118, 115, 169,2, 141 
5030 DATA 121,115,169,25,141,133,115,141,132,115,169,4,141,1 

35, 115, 169,0, 141, 149, 115 
5040 DATA 141,148,115,141,30,208,96,173,149,115,13,150,115,2 

40 , 20 , 56 , 1 73 , 1 49 , 1 1 5 , 233 
5050 DATA 1 ,141,149,115,173,150,115,233,0,141 ,150,115,76,128 

,112,169,0,141 , 149,115 
5060 DATA 169,3,141,150,115,238,148,115,173,148,115,32,61,11 

4, 162,3, 160,0, 189,88 
5070 DATA 1 14, 153, 133, 125,200,202,208,246, 173, 155, 115,32,61 , 

114, 162,3, 160,0, 189,88 
5080 DATA 114,153,144,125,200,202,208,246,96,173,94,115,240, 

4,206,94, 115,96, 169,3 
5090 DATA 141,94,115,32,95,114,170,41,1,208,16,138,41,2,208, 

23,138,41,4,208 
5100 DATA 30,138,41,8,208,35,96,173,90,115,201 ,8,208,1,96,20 
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6,90,115,96,173 

5110 DATA 90,115,201,153,208,1,96,238,90,115,96,173,91,115,2 

08,1,96,206,91,115 
5120 DATA 96,173,91,115,201,130,208,1,96,238,91,115,96,173,1 

42, 115, 240, 4, 206 v 142 
5130 DATA 115, 96, 173, 155, 115, 141, 142, 115, 173, 105, 115, 141., 146 

,115,173, 104, 115, 141 , 147, 115 
5140 DATA 173,107,115,141,145,115,173,152,115,141,151,115,32 

,166,113,173,151,115, 141,152 
5150 DATA 115,173,145,115,141,107,115,173,146,115,141,105,11 

5,173,147,115,141,104,115,173 
5160 DATA 119,115,141,146,115,173,118,115,141,147,115,173,12 

1,115,141,145,115,173,153,115 
5170 DATA 141,151,115,32,166,113,173,151,115,141,153,115,173 

,145, 115, 141, 121, 115, 173, 146 
5180 DATA 115,141,119,115,173,147,115,141,118,115,173,133,11 

5,141,146,115,173,132,115,141 
5190 DATA 147,115,173,135,115,141,145,115,173,154,115,141,15 

1,115,32,166,113,173,151,115 
5200 DATA 141,154,115,173,145,115,141,135,115,173,146,115,14 

1,133,115,173,147,115,141,132 
5210 DATA 115,96,173,145,115,201,1,240,13,201,2,240,32,201,4 

,240,51,201,8,240 
5220 DATA 68,96,173,151,115,240,10,206,151,115,173,147,115,2 

01 ,8,208,4,32,20,114 
5230 DATA 96,206,147,115,96,173,151 ,115,240,14,206,151 ,115,1 

73, 147, 115,201 ,153,240,4 
5240 DATA 238, 147 , 1 15 , 96 , 32 , 20 , 1 14 , 96 , 173 , 151 ,115,240, 12,206 

,151,115,173,146,115,240 
5250 DATA 4,206,146,115,96,32,20,114,96,173,151,115,240,14,2 

06, 151 ,115, 173, 146, 115 
5260 DATA 201 , 130,240,4,238, 146, 1 15 ,96,32, 20, 1 14 ,96 , 174 , 10 ,2 

10,224,4,176,249,189 
5270 DATA 79 , 1 15 , 141 , 145 , 1 15 , 173 , 10 , 210 , 201 , 30 , 144,249, 141,1 

51 , 115,96, 173,12,208,41 
5280 DATA 14,208, 1 , 96 , 169 , , 141 , 148 , 1 15 , 141 ,30,208,96, 162,3, 

56, 160,0,253,91 
5290 DATA 114, 144,3,200,208,248, 125. 91, 114, 72, 152, 9, 16, 157, 8 

8,114,104,202,208,231 
5300 DATA 96,0,0,0,1,10,100,173,0,211,73, 255 , 96 , 1 20 , 32 , 5 1 , 1 1 

5, 160, 14, 162 
53 1 DATA , 1 89 , 83 , 1 1 5 , 1 49 , 1 76 , 232 ,136, 208 , 247 , 32 , 226 ,114,16 

0, 14,162,0, 181 , 176, 157 
5320 DATA 83, 115,232, 136,208,247, 160 , 14 , 162 , , 1 89 , 97 , 1 15 , 149 

,176, 232 , 1 36 , 208 , 247 , 32 
5330 DATA 226, 1 14 , 160 , 14 , 162 , , 1 81 , 176 , 157,97,115,232, 136,20 

8,247, 160, 14, 162,0, 189 
5340 DATA 111 , 115,149,176,232,136,208,247,32,226, 114,160, 14, 

162,0,181,176,157,111,115 
5350 DATA 232,136,208,247,160,14,162,0,189,125,115,149,176,2 

32,136,208,247,32,226, 114 
5360 DATA 160 , 1 4 , 162 , , 181 , 1 76 , 157 , 125,115,232, 136,208,247,3 

2,65,115,88,96,165,183 

5370 DATA 197,182,240,68,160,0,165,184,24,105,46,145,176,169 

,32,24, 101 ,182, 168, 166 
5380 DATA 185,169,0,145,178,200,202,16,250,169,32,24,101,183 

,141,144, 115,162,0, 142 
5390 DATA 139,115,166,185,172,139,115,177,180,238,139,115,17 
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2 , 1 44 , 1 1 5 , 1 45 , 1 78 , 238 , 1 44 ,115 

5400 DATA 202,16,237,165,183,133,182,165,184,133,139,96,165, 
184,197,189,208,182,96,160 

5410 DATA 14,162,0,181,176,157,156,115,232,136,208,247,96,16 

0,14,162,0,189,156,115 
5420 DATA 149 , 176 , 232 , 136 , 208 , 247 , 96 , 1 ,2 , 4 , 8 , , 20B , 0, 132 , , 1 

20,0,0,0 

5430 DATA 8,0,16,0,0,1,208,0,133,20,120,0,0,0,8,0,16,0,0,2 
5440 DATA 208 , , 134 , 40 , 120 ,0 , ,0 ,B , , 16 , , ,3 ,208 ,0, 135 , 60 , 1 
20,0 

5450 DATA 0,0,8,0,0,0,0,0,79,0,0,0,0,13,12,0,0,0,0,0 
5460 DATA 0,0,0,0,0,0,4,33,0 

ChexSum Tables 



1 


= 


1421 


5 


= 


1495 


6 


-■■ 


i ^i^3 


10 


= 


277 


20 


= 


1 1 24 


25 


= 


123B 


26 


= 


931 


27 


= 


580 


30 


= 


144 


35 


= 


1328 


40 


= 


420 


50 


= 


406 


60 


= 


473 


70 


= 


1663 


80 


= 


1 203 


85 


= 


361 


90 


= 


716 


100 


= 


2810 


110 


= 


2372 


120 


= 


2372 


130 


= 


2372 


1000 


= 


3424 


i010 


= 


3704 


|020 


= 


3733 



5030 


= 


3790 


5040 


= 


3B00 


5050 


= 


3686 


5060 


= 


3613 


5070 


= 


3694 


5080 


= 


3666 


5090 


= 


3347 


5100 


= 


3375 


5110 


= 


3521 


5120 


= 


361 1 


5130 


= 


399 1 


5140 


= 


3981 


5150 


= 


4035 


5160 


= 


4039 


5170 


= 


398 1 


5180 


= 


4035 


5190 


= 


3989 


5200 


= 


4036 


5210 


= 


3412 


5220 


= 


359 1 


5230 


= 


3799 


5240 


= 


3798 


5250 


= 


3696 


5260 


= 


3606 



5270 


= 


3739 


5280 


= 


3357 


5290 


= 


3649 


53:00 


= 


3168 


5310 


= 


3719 


5320 


= 


3777 


5330 


= 


3712 


5340 


= 


3847 


5350 


= 


3863 


5360 


= 


3727 


5370 


= 


3730 


5380 


= 


3691 


5390 


= 


4087 


5400 


= 


3961 


54 1 


= 


3719 


5420 


= 


2981 


5430 


== 


2439 


5440 


= 


2743 


5450 


= 


2024 


5460 


= 


998 


OTAL 


= 


193135 
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LIFE 




CLASSIFICATION: Educational 

Life is a simulation of the growth of a colony of cells that is 
controlled by prescribed rules. The joystick moves the cursor 
left and right. Pressing the fire button on the joystick sets 
the cell to the current cursor color. Pressing the R key sets 
a random starting pattern. Pressing the ESC key changes the 
cursor color and pressing RETURN exits the setup stage and 
starts the simulation. 

PROGRAMMING SUGGESTIONS 

Change the radius of the neighbourhood and change the rules 
that drive the game. 
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Program 
Variables 



OLDCELLSO 

NUCELLSO 

R() 

R 

K 

Program 
Structure 

10 
100 - 
5000 
6000 - 
9000 
20000 - 20030 
20050 - 20076 
20400 - 23010 



170 
6080 



Holds current array of cells 
Working copy of cells 
Rule table 
Radius of neighbourhood 

Number of possible states of a cell 



Jump to initialization 

Main Loop 

Display 

Calculate next generation 

Random setup 

Initialize routine 

Set number of states 

Setup initial formation 



31 



Listing 



10 



GOTO 20E00 



Main Loop 



100 POKE 77 , 0: OLDCELLS (81 ) =OLDCELLS ( 1 ) : OLDCELLS (0) =OLDCELLS 

(80) 
140 T=USR<1536) : REM SCROLL SCREEN 
150 GOSLIB 5000: REM DISPLAY 

160 6DSUB 6000: REM CALC NEXT GENERATION 
170 GOTO 100 



Display 



5000 



POSITION E, OFFSET: FOR T=l TO 80:^ #h; CHR* (OLDCELLS (T) > 
:NEXT T: RETURN 



Calculate next generation 



6000 


FOR 1=1 TO 8B 






6010 


S=0:FOR F-I-R TO I+R 






6020 


Z=P: IF Z>80 THEN Z=Z-B0 






6030 


IF Z<1 THEN Z=Z+S0 






6040 


S=S+OLDCELLS(Z> 






6050 


NEXT P 






6060 


NUCELLS(I)=R(S) 






6070 


NEXT I 






6080 


FOR 1=1 TO 80: OLDCELLS <I > 


=NUCELLS ( I ) 


:NEX 



I : RETURN 



Random setup 



9000 FOR 1=1 TO 80:OLDCELLS(I)=INT(RND(0)*K> : NEXT I : DSPFLAG= 

1 : RETURN 
2000B DIM OLDCELLS (81 ) , NUCELLS (81) 
20030 GOSUB 30000 



Initialize routine 



20050 K=2:REM 
20060 R=2:REM 
20062 DIM R(5> 



WUMBEI \'OK7:if»iO.S-SI»iL; 



ESJ3H 



BrWil-S-Iimi M TEl 
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Set number of states 



20071 R<0>=0 

20072 RU>=0 

20073 R<2>=1 

20074 R(3)=0 

20075 R<4)=1 

20076 R(5)=0 



Setup initial formation 



20400 FOR T=0 TO 81 : OLDCELLS <T> =0 

20410 NEXT T 

21000 GRAPHICS 5 

21010 X = 40: ? "R=RND ^ ^RETURN=START ^.JSTK ^MOVES ^CURSOR" : ? 

OLOUR" 
21020 COLR=l 
21030 QFFSET=0 

21040 IF DSPFLAG THEN GDSUB 5000 
21050 A=STICK<1> :OLDX=X:DSPFLAG=0 
21060 IF A=ll THEN X=X-1:IF X<0 THEN X=X+80 
21070 IF A=7 THEN X=X+1:IF X >79 THEN X=X-80 
21090 POSITION OLDX,l:? #6,CHR*(0>; 
21100 POSITION X,l:? #6; CHR* (COLR) ; 

21110 IF NOT STRIGU) THEN OLDCELLS ( X+l ) =COLR: DSPFLAB=1 
21130 A=PEEK < 764 >: POKE 764,255 

21140 IF A=2B THEN COLR-COLR+ 1 : IF COLR>K-l THEN COLR=0 
21150 IF A=40 THEN GOSUB 9000 
22000 IF A<>12 THEN GOTO 21040 
23000 GRAPHICS 5+16: REM E .STRETTON 95 
23010 0FFSET=47:G0T0 100 
30000 FOR T=1536 TO 1601:READ A:POKE T,A:NEXT T-.RETURN 

31000 DATA 104,169,47,141,66,6,169,160,133,203,169,155,1: 
4,169,180,133,205,169,155 

3 1 00 1 DATA 1 33 , 206 , 1 60 , , 1 62 , 20 , 1 77 , 205 ,145, 203 , 200 , 202 , : 
48 , 1 65 , 203 , 24 , 1 05 , 20 

31002 DATA 133,203, 169,0, 101 ,204, 133,204, 165,205,24, 105,: 
3,205, 169,0, 101 ,206 

31003 DATA 133,206,206,66,6,208,213,96 



'Esc=C 



3,20 
08,2 
0,13 
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ChexSum Tables 



10 


= 


114 


100 


= 


2084 


140 


= 


1705 


150 


= 


903 


160 


= 


1S04 


170 


= 


112 


5000 


= 


1934 


6000 


= 


523 


6010 


= 


1172 


6020 


= 


1521 


6030 


= 


964 


6040 


= 


814 


6050 


= 


171 


6060 


= 


885 


6070 


= 


169 


6080 


= 


1736 


9000 


= 


2357 


0000 


= 


955 


0030" 


= 


117 



20050 


= 


5632 


20060 


= 


5283 


20062 


= 


370 


20071 


= 


393 


20072 


= 


458 


20073 


=-■ 


524 


20074 


= 


460 


20075 


= 


526 


20076 


= 


462 


20400 


= 


998 


204 1 


= 


166 


21000 


= 


148 


21010 


= 


4206 


21020 


= 


348 


21030 


= 


272 


2104E 


= 


390 


2 1 050 


= 


1288 


21060 


~= 


1852 


21070 


= 


2028 



21090 


= 


741 


21100 


= 


869 


21110 


= 


1531 


21130 


= 


1085 


21140 


= 


1 753 


21150 


= 


641 


22000 


= 


528 


23000 


= 


1376 


230 1 


-- 


542 


30000 


= 


1404 


31000 


= 


3877 


31001 


= 


3575 


31002 


= 


3518 


31003 


= 


1496 



TOTAL 



68830 
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RATMAZE 




CLASSIFICATION: EvasiorVStrategy 

In this game, you must move around the maze, dodging everything 
you can. You must find the compass, which is hidden somewhere 
within the walls of the ratmaze. You must carefully travel 
through moving fences, dodge the flying balls and the mines 
that they lay. You must also avoid the deadly walls or else 
you will be destroyed. To move through the maze use the keys: 

Q=UP 
Z=DOWN 
I=LEFT 
P=RIGHT 



any other key stops you fro 



m moving 



PROGRAMMING SUGGESTIONS 

Increase the number of objects you must find to complete the 
game. Make the objects which are flying round the screen more 
intelligent and more deadly. 
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Program 
Variables 

A, I Dummy variables 

Character under your program 

P Your position in the maze 

SCORE Your score for the game 

Program 
Structure 

3 - 95 Initialize the system 

100 - 150 Call machine program 

1000 - 1100 Restart game 

2000 - 2040 Give bonus points 



36 



Listing 

Initialize the system 



GRAPHICS 181*7 fcet" t,^ t '. ** ; - ***•? dfct" dt.: ,, 1 . JLil .iOHn! 

9 : 2B3 , 4 > POKE 2B4 . SB 1 POKE 205 . 64 : PQKE 206 . 1 56 : POKE 1 A 

9&,0»PDKE Jb97.S0 

10 FOR l^ZBSIBB TO 30479 : READ A | POKE T.A:NEKT T 

11 DATA L04, 165.245, 72, I6S, 246. 72. 169,164. 133;243;I69, 6. 13 

■ . . 46, 169.0. 133,286, It 1 ? .flfl 

12 DATA l33.2^,l«^,a,l62,~BVi69.H\i33.2flB«i69.e*.-l45.2ae.2 

3B.2&B, 208,248, 177.^45,41 

13 DATA, 127. 24, 1B5.S, 1 B , 2, 169, E. 133, 206. *6<? ,8,133.28?. 169, 
. 1 45, 208 , 1 9fc , 2B8 , 1 9S 

14 DATA 207 .206, 246. 165.208, 24, 103, 129, 133, 2QB, 169, B. 133,2 

6"? . 1 69 . B. 145 , 2KB. 230,2139 .198 

15 IjNTA 207,200,246.3 77*245,230,243,24,113.245.196,245,145 
. 243 . 230V 245 , 230 , 243, 1 65 , 209 , 24 

16 l-Al A 103.8. 133,209, IB2 . 206. 171 ,104, 133,246, 104 , 133.243, 

^6 

2G DATA 104. 160.0,169. 0,133, 208. 169,00. 133. 20*. 169.0; 145, 2 
BH . 230 . 2KB, j 45 . 20S, I 65, 20B . 1-4. 1 B5. 7 

21 DATA 133. 20£ ,20B.2: *. 163, 209. 24,103,1 . 133,209,20^ ,144,2 

oe .22E . 169vb. i 33 .20a . i69.ee, i3a. 209 

22 DATA 169. 0,143. 206.2^,206.208, 240.24, 169, 4, 101,209,1 3 
.2B9.201 , 144.20B.237.96 

23 1>ATA l~B*,l £<■ .245, . |£. 2,1(69.0,133. 06, iti .-_.. 

2E19.jb. . 32. i&B.B. 177 

24 ifATA 200,133,243.160,1.3 ^HS, J33.246, 160., ; . 1 m , 5 . : I ■,<„ ! ,. 
B.B. 145.,i45. :->?.. 7. 177 

23 DATA Z0&.24. 101 .245,133.241,, ifeft.EJ. ] 45, 2!dfc. 169 .0. 101 ,24b 

,20! , J 43,20Q,2. ln4.60 

26 [vftTA 133,246, i6B.i ,i4s,7aB. j*.a.a, i77,24S.j i&. 2, iqj;..;'Cte. 

160,4.17,7.238% 160.0 

27 llATA 145.245. ;>■?, 5. 24, 101. 2BS. 133, 2P&. 202 .206 v 1 f»» .104. 1 

. 246,1144,13;, 245, 96 
26 DATA 104. It9, B, 133. 245, J 69.90.133. 246.1 62.64 

29 DATA 160.0,169,125.143.243.200.200.249.230,246. 

3B PAT A 262.2Bb, -■><;;-, .9*. 

31 DATft ■?■■;, I 73, 242. 2.301. 47, 24B . 13, 201 ,23, 240. 3b. 201 ,13.2 

40 . H9 , 201 . 1 B . 24E. 66, 96 ,163* 2B3 .203 , 126, 176 . 7 , 165. 20 4 

A 201.81.176, 1, 96,56. 165. 2B3.233. 128. 133.203. 163. 204 

,233 , B . 1 3:* . 204 ,96. 165, 2B3, 201 . 12S, 144, 7. 165, 204 , 201 , 131 

33 l*ATA 20E.1.9b.?4. 3 65.2B3.10;,, I 2B, 133,20;. . 165.204.105,0, 

- ^04 . 96, 165 ,203 .41 , 127 .201 ,0. 2*0 .2. 196,203 ,96 

34 DATA lb3. 203, 41, 127, 20J ,SS, 376,2,230.203, 96 

35 HAT A 1 04, i6£. 203. 72, loS,. 2*4, 72. I bS, 205. 72.1 65.206.72 

36 DATft 169.20,133.207,162,48, 160,0, 177, 203, 143,205,200, 20 
2 , _'Ba ,246 . 24", 165, 203. 1 B5 . 1 2B . 133. 2B3 . 1 65 , 204 

PATft J BE, B, 133,204.24,165,283.105,40, 133,285,165.206, 10 
5 .0. 1 33 . iB6 , 1 96 . 2B7 ,20S ,2 1 4 
38 DATA 104, J 33, 206, 104, 133. 205. 104, 133, 204, 104. 133. 203, 96 
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40 
50 



60 



CO 

70 



80 
90 



95 



A=U3R (202S5) : A=-USR (2S1 1 9 > 

FOR l-i/BB TO J. ?ib STEP 2:>- ! 0K.E "f , 64: A=i NT (RND ( i > *5) +1 ; I 

F A<4 THEN POKE 7+ 1 . 256-A: NEXT TtSOTO oB 

POKE T+ 1 , A-3 : NEXT T 

FOR T=1536 TO 1695 STEP 5: POKE T „ IMT iRND ( 1 } *1 BE) -M 4 s POK 

E T + i , I NT ( RND < i ) *4B ) +96 

POKE T + 2 . PEEK ( PEEK ( T ) +PEEK ( T + 1 ) *256 ) 

A= I NT ( RND ( 1 ) *5 S : I F 1 NT ( RND ( 1 ) *6 ) = 1 THEN POKE T + '.'■, „ 3 : OOTO 

BE 
POKE T+3.125+A 
POKE T+4.B4:NEXT T:3C0RE=B 
6RAPHICS E: SETCOLOR 2 , 1 3 ., 0: SETCOLOR 1 . 13 , 7 : PQ3 ) T I CUM 16. 

22 : ? " SCORE " : SCORE : SETCOLOR 4.4.4 

POKE 752,0 



Call machine program 



1 £10 A=iJSR ; 20 1 86 ) 

1 S3 A=U3R i 20000 ) 

1 05 A=USR ( 2S3 11): F -PEEK ( 203 > +256*PEEK ( 204 > + i 4; 

OKE P,3 

110 A=UBR (2(3408) 

115 IF OOti THEN SOTO 1000 

120 POKE P.C) 

14E POKE 33748. INT (RND i 1 > *4 i +92: 

145 3C0RE=SC0RF-rl ; POSITION 26 , 22: PR IN I' SCORE 

150 BOTO 130 



( P ) ; P 



Restart game 



10B0 ? CHR*(125) 

1B10 IF F-3374B THEN Bi.il Cl 2aO0 

1020 ERHPHICS IS;? »c-,:? #6:? #6:? tt6:? #6; 

1030 FOR '1=0 TO 400: NEXT T 

1040 BRAPHICE 

105B POSITION 15.10:? "H IT ..ANY ..KEY" 

1060 POSITION 1.5.12:? "FOR ..ANOTHER" 

1070 POSITION 1S.3.H!? "BANE" 

1080 POKE 754.B 

1090 IF ► : EEK(754) < >0 THEN RON 

1100 BOTO 1B90 



SAME *.D'--'ER 



Give bonus points 



2000 BRAPHICS 18: 



#6 5? #6:' 



#6;' 



#6: 7 #6; " „. ^ ... ^ ^WELL *.DONE ! 



? #6 : ? #6 : " ^ ... ..BONOS „ 1 00E ., PTS . 
2010 POKE 203. 4: POKE 204.80 
2B20 POKE 754 . 

2030 IF PEEK (754) THEN BOTO 90 
2040 BOTO 2E3E 



' : BCORE=SCORE+1000 
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ChexSum Tables 



~ 


= 


2208 


9 


= 


2488 


10 


= 


12SB 


11 


= 


3937 


12 


= 


3868 


13 


= 


36B6 


14 


= 


4B23 


15 


= 


4170 


16 


= 


2717 


213 


= 


4343 


21 


= 


4352 


22 


= 


3765 


23 


= 


3623 


24 


= 


3655 


25 


•- 


3639 


26 


= 


3544 


'27 


= 


3655 


28 


= 


2089 


29 


= 


2163 


301 


= 


853 


31 


=-. 


5147 



3 3 


= 


4963 


34 


12 


2032 


35 


= 


2479 


36 


= 


4763 


37 


= 


3925 


38 


= 


2597 


40 


= 


1186 


50 


= 


3697 


53 


= 


749 


60 


= 


2987 


65 


= 


1444 


70 


= 


2369 


75 


= 


600 


60 


= 


J 61 4 


90 


= 


2643 


95 


= 


253 


100 


= 


632 


103 


= 


497 


105 


= 


2.741 


1 10 


= 


509 


115 


-.= 


362 


3 23 


= 


334 



140 


= 


1095 


145 


S 


1064 


150 


= 


112 


1000 


= 


343 


1010 


= 


577 


1020 


= 


2149 


1030 


= 


509 


1040 


= 


79 


1050 


= 


1159 


1060 


= 


1 195 


1070 


= 


676 


1080 


= 


255 


1090 


= 


506 


1100 


= 


271 


2000 


= 


4468 


2310 


= 


636 


2E20 


= 


255 


2B3E 


= 


656 


2040 


= 


191 



'ilAL = 
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2D MAZE 




CLASSIFICATION: Skill 

You are placed randomly within a maze and must work your way 
through to the end. The end of the maze is a flashing wall of 
color. Move forward using the joystick. 

PROGRAMMING SUGGESTIONS 

Put a time limit on solving the maze. Introduce random 
teleporters which change your position and orientation; once 
triggered, they disappear. Increase the size of the maze. 
Have nasty things chase you! Add secret, invisible passageways 
that change your position. 
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Program 




Variables 




MZ() 




J 




D 




MAND$ 




MOR$ 




Program 




Structure 




10 - 


110 


120 - 


140 


150 - 


180 


190 - 


200 


210 - 


440 



Maze array 

Current junction 

Actual junction 

Machine code for AND instruction 

Machine code for OR instruction 



Initialize the game 
Scan the keyboard 
Move the player 
Rotate left or right 
Draw the players view 
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Listing 



Initialize the game 



10 SOTO 3000 

15 PRINT CHR* ( 125) ; "WAIT": DX=9:DY=9: XF=5:YF=9 
20 DIM MZ (DX.DY) : COLOR 1 
30 RESTORE 50 

40 FOR 1=0 TO DY:FOR 0=0 TO DXrREAD A: MZ ( J . I ) = A: NEXT J ■ NF X 
T I " "" 

50 DATA 15,3.4,7,5.7,5,5,15,5,11,14.5.13,5,13,5,3,10,6,14, 

11,6,5,5,5,7,11,8,10 
60 DATA 10, S, 10, 6. 3, 6, 11, 12, 7, 9, 12, 5. 9, 8, 6. 12, 15, 5. 13, 3,=, 

5.3,6,15,3,10,2,6.13 ' 

7E DATA 7, 5, 9, 10, 10, 12, 9, 10. 12, 5, 14, 7, 5, 9, 12, 5, 5, 15. 5. 1,-H 

,14,5,7,7,5,3,10,4,5 
80 DATA 11,8,4,9,8,4,9,12,7,5 
85 SOTO 110 



Call MAND and MOR 



90 LL=USR ( ADR < HAND* ) , < X 1 *2 i ,15): LL=L.L -<■■ I NT ( U3R ( ADR ( MAND* '■ i 

1,8) /8> : RETURN 
100 RR=INT <Xl/2)+(USR<ADR(MAND*) , XI , 1) *B) : RETURN 



110 



200 



Scan the keyboard 



X = INT (RND (0) *6+2) : Y=INT (RND (0) *5) : D=2"'INT (RND (B) *4 ) : 6RA 



1 20 B=STR I B ( 1 ) : A=ST I CK ( 1 ) : I F A= 1 5 AND E= 1 THEN 1 20 

130 IF A=ll THEN X:I=D:G05UB 100: D=RR; BOSUB 210: GOTO l'~& 

140 IF A=7 THEN X1=D:BQSUB 90: D=LL: BOSUB 210: GOTO 120 

150 IF USR ( ADR < MAND*) ,D,MZ(X,Y> )=1 THEN X = X-1:IF X<0 THFN X 

= DX 
160 IF USR ( ADR < MAND*) ,D,MZ ( X , Y) 

Y=0 

170 IF USR (ADR (MAND*) ,D,MZCX,Y) ) =4 THEN X=x+1:IF X'H)X THEN 
X=0 

180 IF USR (ADR (HAND*) ,D,t'iZ(X,Y) ) =8 THEN Y = Y-1:IF Y<E THEN y 

=DY 
190 BOSUB 210: IF X=XF AND Y=YF THEN GRAPHICS 0:END 



THEN Y=Y+1:IF Y>DY THEN 



SOTO 120 
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Draw the players view 



210 GRAPHICS 8:XN=X:YN=Y: IF USR (ADR (MAND*) , D , MZ < X . Y >> =0 THE 

N RETURN 
220 IF USR (ADR (MAND*) ,D,MZ(X,Y) )=i THEN XN=X-1:IF XNX0 THEN 
XN=DX 

230 IF U5R(ADR<MAND*) ,D,MZ (X,Y) j=2 THEN YN=Y+1:IF YN>DY THE 

N YN=0 
240 IF USR (ADR (MAND*) ,D,MZ(X,Y> ) =4 THEN XN=X+1:IF XN>DX THE 

N XN=0 
250 IF USR (ADR (MAND*) ,D,MZ(X,Y) ) =8 THEN YN=Y-1:IF YN<0 THEN 

YN=DY 
260 PLOT 0,0:DRAWTO 87,57: PLOT 0,159: DRAWTO 87, 130: PLOT 319 

,0: DRAWTO 232,57: PLOT 319 . 159: DRAWTO 232,130 
270 IF USR (ADR (MAND*) ,MZ(XN.YN) ,D)=0 THEN 300 

280 PLOT 157, 103: DRAWTO 162 , 103: DRAWTO 1 62 , 107: DRAWTO 157 1 
07: DRAWTO 157,103 

281 PLOT 157, 103: DRAWTO 130,85: PLOT 162 , 103: DRAWTO 189,35 
290 PLOT 157. 107: DRAWTO 130, 116: PLOT 162. 107: DRAWTO 189,1 la 

:6OT0 310 
300 PLOT 130, 85: DRAWTO 189, 85: PLOT 1 30 , 1 16 : DRAWTO 189,13 6 
310 Xi=D:GOSUB 100: IF USR (ADR (MAND*) . M2 ( XN , YN ) , PR) =0 THEN 3 

40 
320 PLOT 87, 57: DRAWTO 87, 130: PLOT 1 30 , 85: DRAWTO 87, R5: PLOT 

130, 116: DRAWTO 87,116 
330 IF USR (ADR (MAND*) , MZ (XN, YN) ,D) >0 THEN PLOT 13E,85;DRAWT 

130,116 
340 X1=D:80SUB 90: IF USR (ADR (HAND* ) , MZ ( XN , YN) , LL ) =0 THEN 37 


350 PLOT 232.57:DRAWT0 232,130:PLOT 189 , 85: DRAWTO 232,35:PL 

OT 189, 116: DRAWTO 232,116 
360 IF USR (ADR (MAND*) , MZ <XN,YN) ,D) >0 THEN PLOT 189,85: DRAWT 

189,116 
370 Xl=D:GOSUB 90: IF USR ( ADR (HAND*) , MZ ( XN , YN) , LL > ?0 THEN 40 


380 PLOT 232,57: DRAWTO 189, 85: PLOT 232 , 130: DRAWTO 189,116 
390 IF USR (ADR (HAND*) ,MZ(XN,YN) ,D)=0 THEN PLOT 1B9 , 85: DRAWT 

189,116 
400 Xl=D:SOSUB 100: IF USR (ADR (MAND* >, MZ ( XN , YN) , RR ) >0 THEN 4 

30 
410 PLOT 87,57: DRAWTO 130,85: PLOT 87 , 130: DRAWTO 130,116 
420 IF USR(ADR(MAND*) ,MZ (XN,YN) ,Di=0 THEN PLOT ] 30 , 85: DRAWT 

130,116 
430 IF XN=XF AND YN=YF THEN GRAPHICS O: PRINT "HOME" 
440 RETURN 



Data for MAND and MOR 



3000 DATA 104,104,133,213,104,133,212 

3010 DATA 104,37,213,133,213,104,37,212,133,212,96 

3020 RESTORE 3000: DIM MAND* ( 18) , MOR* ( 18) 

3030 FOR 1=1 TO 18: READ A: MAND* ( I , I > =CHR* ( A) : NEXT 1 

3040 M0R*=MAND*:M0R*(9,9)=CHR*(5> : MOR* (14 14>=CHR*(5) 
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3050 REM A=USR(ADR<MAND*> , X,Y) . A=X r-HD Y 
3060 REM A=USR<ADR(MOR*> ,X,Y> . A= "X OR Y 

3070 BOTO 15 



ChexSum Tables 



10 


= 


159 


15 


= 


2234 


20 


= 


716 


30 


= 


215 


40 


= 


2293 


50 


= 


3539 


60 


= 


3539 


70 


= 


3539 


80 


= 


1187 


85 


= 


12B 


9.0 


= 


3037 


100 


= 


18c "9 


110 


= 


31 '3 


120 


= 


1 874 


130 


- 


1675 


14L- 


= 


1804 


?50 


= 


2740 


160 


= 


2740 


170 


= 


2737 



180 


= 


2752 


190 


= 


1027 


200 


= 


144 


210 


= 


2554 


220 


= 


2752 


230 


= 


2.752 


240 


= 


2749 


250 


= 


2764 


260 


= 


3203 


270 


- 


1 500 


280 


= 


1968 


281 


= 


1785 


290 


= 


1788 


300 


= 


1 823 


310 


= 


2145 


320 


= 


2905 


330 


= 


2247 


340 


= 


2332 


350 


= 


2755 



360 


= 


2425 


370 


= 


2220 


380 


= 


1809 


390 


= 


2426 


400 


= 


2129 


410 


= 


1795 


420 


= 


2248 


430 


= 


1196 


440 


= 


58 


3000 


= 


1468 


3010 


= 


2117 


3020 


= 


972 


3030 


= 


1859 


3040 


= 


*?'^33 


3070 


= 


131 


TOTAL 


„ 


106190 
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MINOTAUR 
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CLASSIFICATION: Arcade 

The objective of this game 
to 99. You do it by 
numbers. As you pass over 
board and added to your sc 
appears at the top of the 
over a question mark ,a ra 
If you pass over a number 
the board, you are pursed 
you're dead. Remember, on 
removed from the board and 
become encircled by spaces 
When you have guessed the 
cursor . 



is to guess a number in the range of 
moving a piece around a board of 

a number, it is removed from the 
ore. If you pass over an X, a clue 
board for a short time. If you pass 
ndom number is added to your score, 
greater than six as you move around 
by a minotaur. If he captures you, 
ce you pass over a number it is 

you cannot pass over spaces. If you 

press the fire button to escape, 
number, move your piece to the white 



PROGRAMMING SUGGESTIONS 

Add different pieces to the board, such as bombs and mines. 
Place tempory barriers in the path of both the player and the 
minotaur . 
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Program 




Variables 




sc 




H$ 




R 




C 




PO 




PE 




BE 




CI 




Rl 




MA 




Program 




Structure 




10 - 


90 


100 - 


400 


400 - 


550 


560 - 


7 50 


850 - 


910 


920 - 


1070 



Screen memory 

Characters on the screen 

Row co-ordinate of player's piece 

Column co-ordinate of player's piece 

Player's piece position 

Player's piece's previous position 

Start of matrix on screen 

Column position of minotaur 

Row position of minotaur 

Minotaur's screen position 



Initialize the game and variables 

Draw the screen and generate clues 

Main loop 

Move your player round the screen 

Move the minotaur 

Print messagesy 
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Listing 



IB REM MICRO MINOTAUR 

20 CLR 

21 DIM RR*(24) ,CC*(40) ,CL*!201> , H* < 1 1 > , NU* (2) ; A* (5) ,WA*<40 
) , VT4" (5) 

23 POKE 82 , : PR I NT CHR* (125); 

24 SP=0:REM SET SPACE CHARACTER 

25 I N= 128: REM SET INVERSE SPACE 

26 MI =13: REM SET THE MINOTAUR CHARACTER 

27 XX=56:REM SET CLUE CHARACTER TO X 
30 PRINT CHR* < 125) ; 

40 SC=40000: CO=40960: C=B: R=0: PO=SC+ (P*40) +C: BE=SC+130 

60 FOR 1 = 1 TO 24:RR*(I » I )="•*•": NEXT I 

70 FOR 1 = 1 TO 40: CC*< I, I >="-*": NEXT I 

B0 FOR 1 = 1 TO 200: CL*( I, I )=".,": NEXT I 

81 FOR 1 = 1 TO 34: WA*< I, I )="„/': NEXT I 

90 J=l:FOR 1=17 TO 25: H* ( J , J ) =CHR* ( I > : J=J + 1 : NEXT I:H*(10 1 

0>=CHR*<31> :H*(11 , 1 1 ) =CHR* (56) 

100 FOR I=SC TO SC+39:P0KE I, IN: NEXT I 

110 FOR I=SC+ (23*40) +1 TO SC+ (23*40) +38: POKE I, IN: NEXT I 

120 FOR I=SC+40 TO SC+ (23*39) STEP 40: POKE I, IN: NEXT I 

130 FOR I=SC+39 TO SC+ (23*40) +39 STEP 40: POKE I, IN: NEXT I 

140 POSITION 0,0:PRINT 



wicho wiwmaiiB 



150 FOR I=SC+130 TO SC+850 STEP BB 

160 FOR J=I TO 1+18 STEP 2 

170 G!=INT(RND(1>*12) : IF Q=0 THEN 170 

180 A=ASC(H*(Q,Q) ) 

190 POKE J, A: NEXT : NEXT I 

200 NU=INT(RND(1)*10P) : IF NU=0 THEN 200 

210 NU*=STR*(NU) :RA=INT(RND(1)*3> : IF RA=0 THEN SOTO 210 

220 IF NLK10 THEN NU* (2 , 2) =NU* ( 1 , 1 ) : NU* ( 1 , 1 ) ="0" 

IF RA=1 THEN CL* ( 1 , 1 9) ="FIRST ^DISIT ^EQUALS Jb " : CL* (20 , 20) 
=NU*(2,2) 

IF RA=2 THEN CL$ ( 1 , 19) =" SECOND ^DIBIT ^EQUAL „." : CL* (20 , 20) 
=NU* (1,1) 
250 CN=l:FOR 1=2 TO NU-1 
260 A=NU/I:B=INT(A) : IF HOB THEN 290 
270 IF CN=7 THEN 300 
280 CL*( ( (CN*20)+1) , (CN*20)+17)="FACTOR^OF i NUMBER^":CL*( (CN 

*20 ) + 1 9 , ( CN*20 ) +20 ) =STR* ( A > : CN=CN+ 1 
290 NEXT I 
300 IF NU/2=INT(NU/2) THEN CL* ( ( (CN*20) +1 ) , <CN*20> +1 8) ="THE 

^NUMBER ^ IS ^.EVEN" 
310 IF NU/2<>INT(NU/2) THEN CL* ( ( (CN*20) +1 ) , <CN*20) + 1 7) ="TH 

E^NUMBER^IS^ODD" 
320 SB=VAL(NU* (1,1) ) : FOR 1=2 TO 9:A=BB/I:IF A=INT(GB/I) THE 

N SOSUB 1060: GOTO 340 
330 NEXT I 
340 SB=VAL(NUS(2,2) ) : FOR 1=2 TO 9:A=BB/I:IF A=INT(SB/I) THE 

N GOSUB 1070: GOTO 360 
350 NEXT I 

360 SD=VAL(NUS (2,2) > : IF SD/2=INT (SD/2) THEN CL* ( (7*20) +1 , (7 
*20>+19)="FIRST^DISIT ^.IS^EVEN" 

IF SD/2<>INT(SD/2) THEN CL* ( (8*20) +1 , (8*20) +18) ="FIRST 
DISIT^IS^ODD" 



30 
240 



S70 
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380 SD=VAL(NU*<2,2> ):IF SD/2=INT (SD/2) THEN CL* ( <6*20) +1 , <8 

*20)+20>="SECOND^.DIBIT ^IS^EVEN" 

390 IF SD/2<>INT(SD/2> THEN CL* ( (8*20) +1 , (8*20) +19) ="SECOND 

^DIBIT^IS^ODD" 

400 FOR 1 = 1 TO 9: IF I*I=NU THEN CL* ( (20*9) +1 , (20*9) +19) =»p R 

ODUCT A DF ^A ^SQUARE" 

410 NEXT I 

420 HO=BE+10:POKE HO, IN 

430 C1=6:R1=6:MA=BE+(R1*40)+C1: VE=PEEK(MA> : POKE MA, MI 

440 C=10;R=1S:FO=BE+(R*40)+C:VA=PEEK<PO> : POKE PO '-'09 

450 B=STRIG(1):A=STICK(1):IF A=15 AND B=l THEN 550 

460 IF A=14 THEN G03UB 560 

470 IF A=13 THEN SOSUB 620 

480 IF A=ll THEN GOSUB 680 

490 IF A=7 THEN EOSUB 740 

500 IF B=0 THEN BOTO 1040 

510 BOSUB 850 

520 POSITION 0,0:PRINT " + + *-»•"■ WA* 

530 TT=TT+CU 

540 POSITI ON B. B: PRINT RR* < 1 , 22) ; CC* < 1 ,7) ; "HEEEMEHniiaa" ■ 

550 CU=0:POKE MA, 141: BOTO 450 

560 IF R=0 THEN RETURN 

570 R=R-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO) : IF DA=SP THEN R= 

R+2 : PD=BE+ ( R*40 ) +C : RETURN 

580 IF DA=MI THEN SOTO 920 

590 BOSUB 800 

600 POKE PE,VA:FL=PEEK(PE< : CLI=FL-16: POKE PE , SP: VA=PEEK (PO) 

610 POKE PO, 209: RETURN 

620 IF R=1B THEN RETURN 

630 R=R+2: PE=PO: PO=BE+ (R*4B) +C: DA=PEEK(PO> : IF DA=SP THFN P= 

R-2: PO=BE+ (R*40) +C: RETURN 

640 IF DA=MI THEN BOTO 920 

650 GOSUB 800 

660 POKE PE,VA:FL=PEEK(PE) : CU=FL-1 6: POKE PE,3P 

670 VA=PEEK(PQ) : POKE PO , 209: RETURN 

680 IF C=0 THEN RETURN 

690 C=C-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO) : IF DA=SP THEN C= 

C+2: PO=BE+ (R*40) +C: RETURN 

700 IF DA=MI THEN GOTO 920 

710 GOSUB 800 

720 POKE PE,VA:FL=FEEK(PE) : CU=FL-16: POKE PE , SP 

730 VA=PEEK(PO> : POKE PO , 209: RETURN 

740 IF C=18 THEN RETURN 

750 C=C+2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(POi : IF DA=SP THEN C= 

C-2: PO=BE+ (R*40) +C: RETURN 

760 IF DA=MI THEN GOTO 920 

770 GOSUB 800 

780 POKE PE,VA:FL=PEEK(PE) : CU=FL-1 6: POKE PE , SP 

790 VA=PEEK ( PO > : POKE PO , 209 : RETURN 

800 I F DA=63 THEN CLI= I NT ( RND ( 1 ) * 1 ) 

810 FU=INTtRND(9>*10> 

820 DI=(FU*20)+1: IF DA=XX THEN POSITION 0,0:PRINT CC*(1,5); 

RR* -(1 ,2) ;CL*(DI ,DI + 19) ; : BOSUB 1050 

830 IF DA=IN THEN GOSUB 1000 

840 RETURN 

850 IF CU<6 THEN RETURN 

860 IF C1>C THEN Cl=Cl-2 
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870 IF CKC THEN Cl=Cl+2 
880 IF R1>R THEN Rl=Rl-2 
890 IF RKR THEN Rl=Rl+2 

900 POKE MA,VE:MA=BE+(R1*40)+C1: IF PEEK ( MA > =209 THEN GOSUB 

920: STOP 
910 VE=PEEK(MA) : POKE MA, MI: RETURN 
920 PRINT CHR*( 125);: PRINT RR* ( 1 , 10) s "THE ..MINOTAUR .JHAS ^EATE 

N^YOU" 
930 POSITION 0,0:PRINT RR* ( 1 , 13) ; "THE ..NUMBER ^W AS . " : NU 
940 PRINT : PRINT : PRINT 

950 PRINT "DO Jt YOU Jt WANT. t ANOTHER J .GAME<Y/N> : "; 
960 INPUT A*: IF A*="" THEN PRINT "+";:GOTO 960 
970 IF A*="Y" THEN GOTO 20 
980 IF A*="N" THEN END 
990 GOTO 960 

1000 PRINT CHR* ( 125) : PRINT RR* U ,2) ; CC* (1 ,3) s "WHAT ^IS^THE^NU 

MBER"; : INPUT VT* 
1005 VT=VAL(VT*> 

1010 IF VTONU THEN PRINT "WRONG .THE .NUMBER .WAS „."; NU: GOTO 94 


1020 PRINT "CONGRATULATIONS ..YOU .HAVE .BEATEN .MINOTAUR" 

1030 GOTO 940 

1040 PRINT CHR* < 125) ;: GOTO 930 

1050 FOR 1=1 TO 300: NEXT I : RETURN 

1060 CL* ( (6*20) +1 , (6*20) +19) =" FACTOR .SECOND .DIGIT" : CL* ( (6*20 

) +20 , ( 6*20 > +20 ) =STR* ( I > : RETURN 
1070 CL*< (5*20) +1, (5*20) +18) ="FACTOR .FIRST ^DIGIT'^CLSt (5*20) 

+20, (5*20>+20)=STR*(I) : RETURN 
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ChexSum Tables 



20 


= 


40 


21 


= 


2865 


23 


= 


682 


24 


= 


1778 


25 


=■ 


1770 


26 


= 


2386 


27 


= 


2183 


30 


= 


356 


40 


= 


3214 


60 


= 


1434 


70 


= 


1 465 


SE 


= 


14B6 


81 


= 


1459 


9B 


= 


4736 


100 


= 


1279 


110 


= 


23 1 2 


120 


= 


1914 


130 


= 


2102 


140 


= 


7439 


150 


= 


1127 


16E 


= 


784 


170 


= 


1327 


180 


= 


1 022 


19E 


= 


748 


2B0 


= 


12B4 


210 


= 


1897 


220 


= 


21 BE 


230 


= 


3477 


240 


= 


3445 


250 


= 


980 


26E 


= 


1873 


27E 


= 


409 


230 


= 


5274 


290 


=: 


177 


300 


= 


3676 


310 


= 


35S2 


320 


= 


3336 


330 


= 


177 


34E 


= 


3436 



350 


= 


177 


360 


= 


4529 


37B 


= 


3465 


380 


= 


4592 


390 


= 


3520 


400 


= 


3753 


410 


= 


177 


420 


= 


938 


430 


= 


2968 


440 


= 


2850 


4 50 


= 


1974 


460 


= 


554 


470 


= 


490 


480 


= 


584 


49E 


= 


s ■< i 


500 


= 


451 


510 


= 


201 


520 


= 


491 


530 


= 


645 


540 


= 


6320 


55B 


= 


928 


560 


= 


301 


S 1 '"?i 


= 


4998 


580 


= 


542 


59E 


= 


i 2 1 


O0B 


=.-. 


2 7 SI 3 


630 




379 


620 


= 


3.89 


63-0 


= 


'+99B 


640 


= 


542 


650 


= 


1 2 1 


66B 


= 


2B6B 


6 7 S 


= 


1 008 


686 


= 


300 


69E 


= 


4994 


700 


= 


542 


71B 


= 


121 


720 


= 


2060 


730 


= 


1BPB 



7 40 


-- 


388 


750 


= 


49 94 


760. 


= 


542 


770 


= 


121 


780 


= 


2'060 


790 


= 


1008 


800 


= 


1 300 


810 


= 


861 


820 


= 


3579 


830 


= 


5 1 B 


840 


:= 


58 


850 


= 


389 


860 


=-. 


942 


870 


=■ 


940 


B80 


= 


946 


890 


= 


944 


900 


= 


2350 


910 


= 


1073 


920 


= 


23 1 1 


930 


= 


1925 


940 


= 


A / '■-' 


950 


= 


2 1 26 


960 


= 


/ 8 8 


9/0 




487 



:-20 
7:. a 
'i4S 



31' 



1053 ■- 695 
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BATTLESHIP 




CLASSIFICATION: Arcade 

You are the commander of a battleship and must destroy enemy 
submarines. You destroy them by dropping depth charges on 
them. Each time one of them escapes the escape counter is 
incremented. Each time you hit one, the hit counter is 
incremented . 

PROGRAMMING SUGGESTIONS 

Add different kinds of submarines to your fleet of enemies and 
give them varying degrees of strength. Fit the submarines with 
different kinds of weapons, for example some sea to air 
missiles. Use the joystick to move your battleship left and 
right and press the fire button to launch a depth charge. 
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Program 
Variables 



i 

X2 
Y2 
XI 
Yl 
X3 
Y3 
X4 
Y4 

Program 
Structure 

2 - 

100 - 

200 - 
1000 - 
2000 - 
3000 - 
4000 - 
5000 - 
6000 - 
7000 - 
9000 - 



General 
X posit 

Y Posit 
X posit 

Y posit 
X posit 

Y posit 
X posit 

Y posit 



purpo 
ion of 
ion of 
ion of 
ion of 
ion of 
ion of 
ion of 
ion of 



se variable 
battleship 
battleship 
submarine 1 
submarine 1 
submarine 2 
submarine 2 
depth charge 
depth charge 



85 Clear out memory and read in data 

130 Data for players 

350 Set up players 
1041 Main loop 
2999 Initialize game 
3599 Move the battleship 
4999 Move the submarines 
5999 Move the mine 
6999 Update the score 
7030 Check for collision 
9090 Data for machine language program 
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Listing 



DATA 24,16, 24 , 36 , 255 ,129, 66 , 60 , 0,0, 0,0,0,0,0,0, , 0,0,0 
DATA 0,0,123, 255 , 255 ,1 23, 0,0,0,0, 0,0, 0,0, 0,0,0,0,0 



2 CLR 

6 FOR 1 = 30720 TO 30798: READ' A: POKE I, A: NEXT I 

7 FOR 1=33792 TO 33792+1023: POKE 1,0: NEXT I 

9 FOR 1=28672 TO 29050: READ A: POKE I, A: NEXT I 

10 POKE 106,128 

20 PM=PEEK < 1 06 ) : PMBASE=PM*256 

30 6RAPHIC3 1 

40 POKE 559.62 

50 POKE 53277,3 

60 POKE 54279, PM 

70 POKE 53256,2 

80 POKE 704, 87: POKE 705,77: POKE 706,77 

85 POKE 707,77 

100 DATA 24,16,24,36,255,129,66,60,0,0,0,0,0,0,0,0,0,0,0,0 

1 10 DATA , , 32 , 32 ,112,112, 255 , 254 , 254 ,0,0,0,0,0,0,0,0,0,0, 

120 

130 

200 POKE 53256 , 1 

210 POKE 53257,3 

220 POKE 53258,1 

230 POKE 53259,2 

300 POKE 704, 125 

310 POKE 705,31 

320 POKE 706. IIS 

340 POKE 707,175 

350 A=USR (28672, XI ,Y1 , X2 , Y2 , X3 , Y3 , X4 , Y4) 

1000 GOSUB 2000 

1010 60SUB 3000: REM BATTLESHIP 

1020 BOSUB 4000: REM SUBMARINES 

1025 BOSUB 5000: REM CHARBE 

1027 GOSUB 6000: REM UPDATE 

1030 A=USR(2B672,X1 ,Y1 , X2 , Y2 , X3 , Y3 , X4 , Y4> 

1040 GOSUB 7000: REM CHECK 

1041 GOTO 1010 
2000 POSITION 0,0 

2020 X2=100:Y2=28: Y4=220:POKE 53278,0 

2025 GOSUB 4500: Y1=Y: BOSUB 4500: Y3=Y 

2999 RETURN 

3000 REM BATTLESHIP 
3005 A=STICK(1) :POKE 53278,0 
3010 IF A=U THEN GOSUB 3100: RETURN 
3020 IF A=7 THEN GOSUB 3200: RETURN 
3030 IF STRIG(1)=0 THEN GOSUB 3500: RETURN 
3040 RETURN 
3100 REM LEFT 
3110 IF X2=0 THEN RETURN 
3120 X2=X2-4: RETURN 
3200 REM RIGHT 
3210 IF X2=128 THEN RETURN 
3220 X2=X2+4: RETURN 

3500 REM DROP DEPTH CHARGE 

3501 IF IN THEN RETURN 
3505 X4=X2: Y4=Y2+8: IN=1 
3599 RETURN 
4000 REM SUBMARINES 
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4005 BOSUB 4100: GOSUB 4200: RETURN 

4100 REM MOVE SUBMARINE 1 

4105 IF Xl>180 THEN GOSUB 4500: ES=ES+1 : Y1=Y : X 1=0: RETURN 

4110 X1 = X1 + (RNDU)*4> -.RETURN 

4199 RETURN 

4200 REM MOVE SUBMARINE 2 

4205 IF X3>180 THEN GOSUB 4500: ES=ES+1 : Y3=Y: X3=0: RETURN 

4210 X3=X3+<RND<1>*4) : RETURN 

4299 RETURN 

4500 Y=RND(9>*150: IF Y>150 THEN 4500 

4505 IF YX60 THEN 4500 

4510 RETURN 

4999 RETURN 

5000 REM 

5005 IF IN=0 THEN RETURN 

5010 IF Y4>150 THEN Y4=220: IN=0; RETURN 

5015 Y4=Y4+4: RETURN 

5999 RETURN 

6000 REM 

6005 POSITION 0,0: PRINT #6; "ESCAPED: "; ES; " .JHITS: "; HI ;" ^ "- 

6999 RETURN ' 

7000 REM 

7005 A=PEEK (53263) : IF A=0 THEN RETURN 

7010 IF A=l THEN GOSUB 7 100: RETURN 

7015 IF A=4 THEN GOSUB 7200: RETURN 

7020 IF A=5 THEN GOSUB 7100: BOSUB 7200: RETURN 

7030 RETURN 

7100 HI=HI + 1: X1=E:60SUB 4500: Y1=Y: IN=0: POKE 53278 . 0: Y4=2"?0- R 

ETURN 

7200 HI=HI + 1 : X3=0: GOSUB 4500: Y3 = Y: IN=0: POKE 53278,0: Y4=~"'0- R 

ETURN 

7999 RETURN 

9000 DATA 104,104,104,141 ,61 ,113,104,104,141 ,60,113,104, 104, 

141 ,75, 113, 104, 104, 141 ,74 

9005 DATA 113,104,104,141,89,113,104,104,141,88,113,104,104, 

141 , 103, 1 13, 104, 104, 141 , 102 
9010 DATA 113, 32, 45, 112, 96, 120. 32, 8, 113, 160, 14, 162, 0,189, 53, 

113,149,176,232,136 
90 1 5 DATA 208 , 247 , 32 , 1 70 , 1 1 2 , 1 60 , 1 4 , 1 62 , , 1 8 1 , 1 76 , 1 57 , 53 , J 1 3 

,232,136.208,247.160,14 
9020 DATA 162,0,189,67,113,149,176,232,136,208,247,32,170,11 

2,160,14,162,0,181,176 
9025 DATA 1 57 ,67,113, 232 , 1 36 , 208 ,247,160,14,162,0,189,81,113 

,149, 176,232, 136,208,247 

9030 DATA 32,170,112,160,14.162,0,181,176,157,81,113,232,136 
, 208 , 247 , 1 60 , 1 4 , 1 62 , 

9035 DATA 189,95,113,149.176,232.136,208,247,32,170,112,160, 

14,162,0,181,176,157,95 
9040 DATA 113,232,136,208,247,32,22,113,88,96,165,183,197,18 

2,240,68, 160,0, 165, 184 

9045 DATA 24,105,46,145,176,169,32,24,101,182,168,166,185,16 

9,0,145,178,200,202,16 
9050 DATA 250,169,32,24,101,183,141,116,113,162,0,142,109,11 

3,166,185,172,109,113,177 
9055 DATA 180 , 238 , 109 , 1 13 , 172 , 1 16 , 1 13, 145 , 178 , 238 , 1 16, 1 13 , 20 

2, 16,237, 165, 183, 133, 182, 165 
9060 DATA 184, 133, 189, 96, 165, 184, 197, 1B9, 208, 182, 96, 173, 112, 

113,41 , 15, 170, 189,36,113 
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9065 DATA 238,112,113,96,160,14,162,0,181,176,157,117,113,23 

2,136.208,247,96,160,14 
9070 DATA 162, 0,189, 117, 113, 149, 176, 232, 136, 208, 247, 96 ,4,2, 3 

,4,5,10,7,8 
9075 DATA 7,8,11,4,2,4,1,4,8,0,208,0,132,0,120,0,0,0,8,0 
9080 DATA 16,0,0,1,208,0,133^1213^(^0.8.0.16.0.0.2 .gjfljjj j} 

9085 DATA 134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,120,0,0 

,0 
9090 DATA 8,0,0,0,0,0,0,79,0,0,0,0,0,0,0,0,141,30,208 



ChexSum Tables 



2 


= 


40 


6 


= 


1359 


7 


= 


1421 


9 


= 


1631 


10 


= 


277 


20 


= 


1121 


30 


= 


144 


40 


= 


420 


50 


= 


406 


60 


= 


472 


70 


= 


372 


80 


= 


1185 


85 


= 


361 


100 


= 


2502 


110 


= 


2580 


120 


= 


2502 


130 


= 


2280 


200 


= 


371 


210 


= 


374 


220 


= 


373 


230 


= 


375 


300 


= 


278 


310 


= 


289 


320 


= 


267 


340 


= 


361 


350 


= 


2407 


1000 


= 


145 


1010 


= 


1092 


1020 


= 


1117 


1025 


= 


794 


1027 


= 


835 


1030 


= 


2407 



1040 


= 


749 


1041 


= 


143 


2000 


= 


1 13 


2020 


= 


1575 


2025 


= 


1247 


2999 


= 


58 


3005 


= 


889 


3010 


= 


565 


3020 


= 


556 


3030 


= 


640 


3040 


= 


58 


3110 


= 


304 


3120 


= 


609 


3210 


= 


410 


3220 


= 


608 


3501 


= 


257 


3505 


= 


1368 


3599 


= 


58 


4005 


= 


460 


4105 


= 


2106 


411E 


= 


993 


4199 


= 


58 


4205 


= 


2118 


4210 


= 


1001 


4299 


= 


58 


4500 


= 


1289 


4505 


= 


545 


4510 


= 


58 


4999 


= 


58 


5005 


= 


313 


5010 


= 


1215 


5015 


= 


618 



5999 


= 


58 


6005 


= 


1864 


6999 


= 


58 


7005 


= 


990 


7010 


= 


613 


7015 


= 


617 


7020 


= 


887 


7030 


= 


58 


7100 


= 


2894 


7200 


= 


2902 


7999 


= 


58 


9000 


= 


3800 


9005 


= 


3900 


9010 


= 


3548 


9015 


= 


3747 


9020 


= 


3711 


9025 


= 


3824 


9030 


= 


3638 


9035 


= 


3778 


9040 


= 


3730 


9045 


= 


3719 


9050 


= 


3845 


9055 


= 


4013 


9060 


= 


3852 


9065 


= 


3760 


9070 


= 


3163 


9075 


= 


2355 


9080 


= 


2537 


9085 


= 


2637 


9090 


= 


2191 



TOTAL = 128402 
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CRYPT 




CLASSIFICATION: Passive 

This program has a very good software random number generator. 
This is used instead of the normal rnd(0) function because the 
sequence of numbers generated by this method is repeatable. 
Changing the seed numbers .which should be prime, will change 
the numbers produced by the random routine which ,in turn 
alters the results of the encode and decode routines. The 
program is self prompting and the only thing to remember is 
that the seed numbers should be prime. 

PROGRAMMING SUGGESTIONS 



It should be possible to make this program work on text 
from tape or disk and to work on larger amounts of text. 



files 
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Program 
Variables 



c 

CODE$ 

FLAG 

H$ 

KEY A 

KEYB 

LOOP 

MAIN$ 

Q 

SEEDA 

SEEDB 

T$ 

TEST 

Y 

Z 

Program 
Structure 

10 
11 
12 

20 - 
30 - 
100 - 
900 
1000 
1005 
4000 
5000 
20000 - 21000 
30000 - 30040 
31000 



27 

32 

160 



3020 
4050 



Used in random routine 

Holds result of encode or decode 

Flag 

List of allowable text characters 

User key A 

User key B 

Loop counter 

Holds text 

Local 

Seed A for random routine 

Seed B for random routine 

Local string 

Flag for print routine 

Local 

Local 



Jump to initialization routine 

Error message 

Error Message 

Input and check text 

Input new keys 

Main loop 

Set for decode 

Set for encode 

Encode or decode 

Random number generator 

Delay loop 

Initialization routine 

The modulo arithmetic routine 

The good bye routine 
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Listing 



10 SOTO 20000 

11 7 ;7 "1 ..TO .5.0NLY":BOSUB 5000; GOTO 100 

12 ? :? :? "INVALID .CHARACTER" : SOSUB 5000: BOTC 20 
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Jump to initialization routine 



FLAB=0: ? CHR* ( 125> -. ? "UPPER ..CASE .ALPHA .AND .NUMBERS 

..ONLY ": POSITION 2.4: INPUT MAIN* 

FOR X = l TO LEN (MAINS) : X*=MAIN* ( X . X ) 

IF X*=" ." THEN GOTO 26 

IF X*>="0" AND X*<="9" THEN GOTO 26 

IF XS>="A" AND XS<="Z" THEN GOTO 26 

FLAB=1 

NEXT X:IF FLAB THEN GOTO 12 

SOTO IBB 



Input and check text 



30 ? CHR* (125);? "NOTE ..NUMBERS ..SHOULD ..BE . PR 1 ME ": ? :? ;? 

31 ? "KEY..A. = ";K:EYA: " ^ .. ..KEY ,.B= " ; KEYB: ~ s? "NEW .VALUE . FOR 
K EY.A": : INPUT KEYA 

32 ? :? "NEW. VALUE.. FOR. KEY.B" :: INPUT KEYB 
100 ? CHR* (125) 

110 POSITION 15.0;? "MENU" 

120 ? :? :? "l. = .INPUT.TEXT";'? : 7 "2 „= .DECODE "s ? :'' "3.==. 

ENCODE":? :? "4 . = ..CHANSE ..KEY" : ? :? "5,, = . Oil IT" 
130 ? : INPUT X*:IF LEN(X*)=0 THEN J 00 
140 T*=X*<1.1) sIF T*<"1" OR T*>"5" THEN ROTO 11 
150 X=VAL(X*i;IF X< 1 OR X >5 THEN 11 
160 ON X SOTO 20,900.1000,30.31000 



Set for decode 



900 TE3T=0:? 
1005 



IHR* (125) :' 



"WAIT .DECC 



NB' 



KOT 
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I E5l?i(Z, TEST= 1 : ? CHR* ( i 2? ) : ? ; 7 ;7 " t,,:, I T „ ENCOD i l-JS " : ? : ? s " 

i0E5 IF LEN(MAIN*>==(7I THEN ? "WO „TEXT" s BHSUh 50BC; BD7D :i SB 

J E "i SEEDA--KEV ft : 3EEDB=KE YB : CODEf*= " " 

i£'2E FOR LOOP-1 TO LE'N O'iA J N* ) 

1030 T*=MAIN* (LOOP. LOOP; 

1040 FOR X=l TO 37: IF Ti=H*<X.X) THEN 0=X 

105K NEXT X 

1060 BOSUB 4E00; X=C; : Y=37:G0SLIE 300130 

1070 IF NOT TEST THEN &=Q-Z:IF R< 1 THEN G=Q-i-37 

1BB0 IF TEST THEN Q=G't-Z:IF Q>37 THEN Q=D-37 

:i 09B CODE* ( LOOP , LOOP ) =H* < ., 0. > 

1 1 00 NE X T LOOP : ? CHR* < 1 25 ) 

1110 IF TEST THEN ? :? s? "CYPHER ^ I 3: " ;. 60SUB 313KB 

1120 IF NOT TEST THEN ? :? :? "PLAINTEXT ,JS: ": SOSUB ?MW 

1130 ? ;? "PRESS ..ENTER"; ; INPUT Ti 

1140 GOTO IBB 

300B ? : ? : ?- CHR* (34) s CODE*-: CHR* (34) : KA1N*=C0DE* 

3010 ? :? :? " IGNORE ^"s CHR* (34) 

3020 ? : RETURN 



Random number generator 



4O00 C=3EEDA-!-5EEDB 

4010 IF 0327&7 THEN L. = C-32 

4020 C=C*2 

4E3B IF 032/67 THEN C = C-32 

4B40 3EEDA=SEEDB : 3EEDB=C 

4E50 RETURN ; RE!', BSSEEJuSSi! 



Delay loop 



dOB0 FOR X = l TO 50B: NEXT X : RETURN 






: HE 



m iBEaEEnaM 



2SS00 R'EYA=7: 

20001 SEEDA=K£VA: 3EEDB=KEYB 

20010 DIM MAIN* 4 255) , CODE* C 255) 

20020 MA I N*= " " : C0t)E*= " " 

2BE30 DIM H*(37) 

20040 H*= "81 23456789 . ABCDEFBHl JKLMNOPQRSTUVWXYZ ' 

20050 SETCOL.OR 4,0.0: SET COLOR 1 , , 15: SETCGI OR 2. 

2BB6E DIM >,* (9; „ 1 *■ <9) " 

21000 SOTO 10B 



The modulo arithmetic routine 



30800 Z=X/Y 
30010 Z = 2-INTt/:) 
30020 Z = Z + 1/ (Y*10> 
30G30 Z=INT(Z*Y> 
30E40 RETURN 



The good bye routine 



5 1 000 



'SC ..LONG" ; END 



ChexSum Tables 



10 = 114 

11 = 122S 
12= 1 88 1 

20 = 3645 

21 = 1436 

22 =■ 434 

24 = 796 

26 = 4Eil 

31 = 3i04 

32 =■ 1671 

110 = o i 6 

120 = 43fal 

13E= 739 

140 = :: 497 

15B = 126S 

16G = 7 9 5 

900 = 2433 



10W0 


= 


2307 


1 005 


= 


1398 


1 G 1 


= 


1 09 b 


1020 


=. 


6 1 3 


1030 


= 


S22 


1040 


= 


1 665 


1E50 


C= 


1 6 1 


:i 060 


= 


1 1 69 


1070 


= 


1737 


1 &8E 


= 


i">4? 


1090 


= 


1 276 


1 1 0fc 


= 


^>S 1 


1110 


= 


1329 


1 120 


= 


1620 


1 i 30 


= 


i 186 


1 140 


:_ 


1 12 


3000 


= 


1422 


3010 


= 


1S44 


3020 


= 


1 2 7 


4000 


= 


573 


4010 


= 


1 1 32 


4020 


- 


521 



f-tj-if 


-~ 


1 i. 3 1 


4040 


-.-. 


St:, 7 


4050 


- 


:! 543 


5000 


- 


663 


20000 


= 


2320 


2000 1 


= 


793 


200 1 


= 


S65 


20020 


= 


556 


20030 


= 


4 1 a 


2004O 


= 


28S6 


20S50 


= 


860 


20060 


= 


705 


2 1 000 


= 


:s 12 


30000 


= 


57 7 


30010 


a: 




3B020 


= 


9 24 


30030 


= 


7 70 


30040 


= 


JD 


31000 


= 


875 



TOTAL = 72569 
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DUNGEONS 




CLASSIFICATION: Logic 

Move your man round the maze of dungeons trying to find the 
exit. There are three dungeons and each one has an exit. 
Hitting the walls causes you to go back to the start of the 
maze. When you find an exit, move into it to reach the next 
level . 

PROGRAMMING SUGGESTIONS 

Increase the number of mazes in the game. Put objects in the 
maze which can eat you or send you back to the start. 
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Program 
Variables 

LEVEL 
MAXLEVELS 
T,A,A$,K,N 
COV 

Program 
Structure 

1 - 80 

100 - 150 

400 - 430 

1000 - 1010 

15000 -15110 

30000 -30362 



Level you are playing. 
Maximium number of levels 
Dummy variables 
Counter for footsteps 



Intialization 

Main Loop 

Crash into wall 

More intialization 

Completed maze 

Even more initialization 
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Listing 



Intialization 



DIM A* (32):? CHR* ( I 25) : POSITION U 

S03UB 10000 

GRAPHICS 18:? #6;? «6:? *6:? #6:'' #6;? #6; 



1 6 : ? ,; i*J A I T „. A ^MOMENT 



*.v-'AI T 



, kid IS , 

8.235 



9 POKE 203. 41: POKE 2654, BE: POKE 205. 64: POKE 206,156 

10 RESTORE lisFOR T =20246 TO 20479: READ A: POKE T, A: NEXT 1 
13 DATA 104, 162, c4 , 169,0. ,133, 203,169. 88,:! 33. 209. 160, 0,U-9. 

64' „ 1 4b . 20B 

12 DATA 200.169.65,145.208,200.169,66,145,208.200.369 ~.~> 1 
45,208.200, :i 92 

1 3 DATA 1 28 , 2KB . 232 ,169.63,145, 20S ,200,369.69.14 
169,70, 145.208 

14 DATA 200. 169, 73. 143. 20P,. 200. 208,234. 230. 709.':- 
.96 

31 DATA 1B4, 173,242.2,201 ,47,240, 13.201 .23. 246. 36, 201 33 '.'•' 
40.59.201 , 10.240.66.96. 165.203,201 . 128, 17/,, 7, 165.204" "" 

32 DATA 201,81.176,1,96, 56 .165. 203 , 233 ,128.1 33 .203,1 65 , 2B4 
., 233 ,0,133, 204 , 96 , 1. 65 , 203 , 20 i . 1 28 ,144. 7 „ 1 63 , 204 , ?0 j * j -*. 3 

33 DATA 206 . 1 , 96 ,74.1 65 . 203 , 1 05 , 1 2S , 133 . 203 , 1 65 , 204 , 1 05 . , 
133.204,96, 165.2G3.4I , 127.201 ,0,240.2, 198,203,96 

34 DATA 1 65 , 203 , 4 1 , 1 27 , 20 1 ,88,1 76 , 2 , 230 . 203 . 96 

35 DATA 104, 165,203., 72. 165,204,72.. 165.205.72, 165,206.72 

36 DATA 169,24, 133.237, 162.40, '! 6E,0, 177,203. 145. vp,=-, -pj, -^. 
2.208. 24B, 24, :! 65 ,. 03 , 105 , \2-- , i 7 ', , : : 2". . •; 65 . 2*i4 ' ' * '""*'" 

37 DATA 1 05 , B , 1 3 3 , 264 ,. 24 , 1 65. , 205 ., 1 05 , 40 . i ..' 7 , 205 , 1 65 , 26c ,. 1 
5,0,1 33 , 206 , .! 98 . 20? , 208 , 2 :i 4 

38 DATA 1 04 .133. 206 , 1 04 . 1 72:: , 205 .104,1 77 . 204 . 1 v,& I "7 '>(/.-■ t ... 

40 L.EVEL=1:HAXl.EVELS=h '' "" " 

50 B03UB 100B 

60 BHAPH I CS & : POKE 736 ,144: SE f COLOR 2 ,12, 

90 COL! =4 

100 R=U5R (2031 1 ) : A=USR (20408) : IF PEEK (403? 

400 
105 POKE 40379,88 

110 IF t EFK(2^3)+236+-PEEK(204)-337Q5 THEN GOSUB 13000 
120 COO-Cui.!-;. : IF NOT COU THEN 300=2: R3R T=0 TO 30 3T 

SOUND 2,T .a, IBsNEXT T : SOUND 2.0.0.0 
150 GOTO 100 



■>69 THEN 6U3UB 



Crash into wall 



400 



430 



r 0E 



I =VJ I U 30 



!'"EP 







SOUND 1 ,T,0, 10: NEXT 7 : SOUND 



410 POKE 754.0: POKE 203.41: POKE 204.80 

420 FOR T=0 TO 30: POKE 756 , 224: POKE 756. 144: NEXT T 



RETURN 



.0,0, 
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More intialization 



1000 RESTORE 3BC5E0+LEWF.!..*10B! GRAPHICS 26: DOLOR 1 : A=USR ^ 20246 



1010 
1.020 
i G30 
i B4!2 

1050 
1 060 

1070 

1 100 
10000 
10010 
1 002E 

10021 

10100 

10110 

10120 

10121 

1 1 22 

1B123 

10130 

10135 
1 1 40 

i B 1 50 

10160 

10170 

3 01 SB 
10190 



FOR T=0 TO 31: READ A* 

FOR N=l TO 32 

C=2048iS+T*5 1 2+ ( N- 1 ) *4 

IF HOT <ASC(A*<Ni >~32> THEN FOR h=0 TO 3: FOR B=Ci TO 3: 

POKE C+A*126+B,89;MEXT fa:NEXT A: PLOT N+24 . T+8 

NEXT N:NEXT T 

F ; 'OR T=0 TO 3 s FOR M=0 TO 3: POKE 21E50+N+T* 128 . 72 + IJ+T *4 ■ N 

EXT NsNEXT T 



: PQi< 



::'4362-Wmh-T* 1 28 , 72-H''-i-t-T*-4 : 



T 



.39: R 



j5,244,: 



50,244,: 



4 , Si 



FOR T = Gi TO 3 s FOR H=0 TC 

EXT NsNEXT T 

RETURN 

POKE 756 ., 1 44 

FOR T=0 TD 1023:POKE 36864 +T . PEEK < 57344+T }: NExl 

RE3T0RE 10100+ ( INT (RND( 1) *2; *2i. ) s FOR T =3737 6 TO 37h 

EAD A: POKE T.A:MEXT T: RESTORE IE 130 

FOR T=37440 TO 37583s READ A: POKE T. A: NEXT T: RETURN 

DATA 0. J 27,213, 175,223, 3 75 , 95 , 127 . , 31 ,191 ,255,255, 

255 , 255 , . 243 . 255 , 255 . 255 . 255 , 255 , 255 

DATA B, 240, 252 , 254 , 254- , 254- , 254 , 25G . 255 255 255 ■■5"" 

DATA 255,255.255,255,253,250 

.3 70,84.60 

DATA 0, 127,85, 106,85, 106,85, 106 . . 255 . 85 , 370,85, :! 70.35, 

1 7'0 „ 0, 255 . 35 , i 70 , 35 , I 70 , 35 „ :i. 70 

DAT A , 255 ,87,171 ,67,373 ,. 87 , 1 7 1. „ 85 . 1 06 .85,1 06 . 8 5 . 306.1 7 

7 , 127 ,85, 1.70.85.. 170,85. 1 70,255,255 

DATA 35. 1 70,85, 3 70.85, 3 70,255.255,87. I 7 1 , 87 . 1 7 3 , 67 . 3 7 1 , 

255.255 ' 

DATA E.227,255. 755,255,255,254,254,0,240,252.231 , 158.63 

.222.239.0,7.63, 1.03,, 24='. 1.26,251 ,119 

DAT A , 248 , 253 , 255 ,255,255,127,127 

DATA 252,253,251 ,251 ,249,246,247 .231 ,244, 113, 130,229.70 

2,21, 202 ,213,47,78,161,87.171,80,171,83 

DATA 63, 191 ,223,223, 159. ill ,239. 239,0, 143,239.239 .240,2 

39.239,239,42, 149, 170 , 149 , 42 , 149 , 17S , 149 

DATA 1 68 , 85 ,169, 85 .184, 1 25 , 1 35 , 1 7 ., 8.247, 247 , 247 .15. 747 , 

247,247.240,239.239,239,240,239,239,239 

DATA 42.149,170,1 49 , 42 , 1 49 , J. 70 , 1 49 , 1 28 .69,169, 85 „ 1 68 85 

,169,85,15.247,247,247,15.247,247.247 

DATA 24,24.0. 126,24,, 60. 102, 102 

DATA 0,24,0,0,3,0, 48 , 



Completed maze 



15000 FOR T=37376 TO 37567 STEP 8: RESTORE 15100: FOR N=0 TO 3- 
FOR K=E TO 7:READ A:POKE T+K„A:NEXT KsNEXT N 

15010 FOR K=T TO <T+7>:P0KE K.0:NEXT K: SOUND . INT <RND ( 1 > *255 
>„0,10sNEXT T:SOU!\!D 0,0.0,0 
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1 5020 
15030 

1 5B40 
1 5060 
15070 
151BB 


LEVEL = LbvEL. + it IF LEVcL=riAXL.EVELE THEN S0 T 15062! 
BRAPHICS lS:PQSIT10N 0,5:7 #6; "*„.„. ^ .,. .,,.1 EVtL „. : ' : LEVEL: F 

f=B TO 25S:S0L)ND . T , 10 , 10; NEXT TsSOUKD 0,0. (Z , B 
bOSUB 3 0B00 : PDF : POKE 203 ,il: POKE 204 , £10 : GOTO 50 
GRAPH I CS 1 8 5 P03 I T I ON 0,5:? #6 ! " ^ ^ ^ Ju „ „ ^THE ^ END . " 
FDR T=0 TO 1000: NEXT T: GRAPHICS 0:END 
DATA 126. 255 ,191,223, 1 59 , 223 ,159, 1. 26,1 00 , 230 . 1 75 , 235 , 25 

.94,224,71 


,15110 

20000 


DATA 
FOR T 
EXT N 


1 92 , 1 34 , 1 4 , 1 2 , , 64 , 1 93 , 99 , 1 28 , 1 30 , 4 , , , 64 , 64 , 1 

=0 TO 3: EOF N=0 TO 3: POKE 21054+N+T*128.72+N+T*4: N 

is NEXT T 


2B100 


GOTO 


20100 


30100 


DATA 
DATA 
DATA 




30102 




301214 


- » . « ■ 


30106 


DATA 


••»- - ■ - ■ u . 


30108 


DATA 


- - . * v 


301.10 


DATA 


■ ><•■ . n . ...... 


301 12 


DATA 


-.»- ... . 


30 1 1 4 


DATA 




301 16 


DATA 


» ■ . . . „ . 


30 1 i 8 


DATA 


...... - 


3B 123 


DATA 




30122 


DATA 




30124 


DATA 


- . . . . - 


3&126 


DATA 




30 1 28 


DATA 


- • » • . 


30 1 30 


DATA 




30132 


DATA 


■-"- 


30134 


DATA 




30136 


DATA 


. . . . 


30133 


DATA 




30140 


DAT A 




30142 


DATA 




30143 


DATA 


• -.. - - ... 


30144 


DATA 


- .. - - N .... 


30145 


DATA 





30146 


DATA 




30148 


DATA 


" - • * ■ 


30150 


DATA 


, . „....],.„[ l /.I'. 


30 152 


DATA 




30154 


DATA 




30156 


DATA 




30 158 


DATA 




3E200 


DATA 




32202 


DATA 
DAT A 




302B4 


. , . n 


30206 


DATA 




3020S 


DATA 


■ ■ « . . . 


30210 


DATA 




30212 


DATA 




30214 


DATA 




3E216 


DATA 


- - 
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302 IS 


DfiTA 


30220 


DATA 


3G222 


DATA 


30224 


DAT A 


30226 


DATA 


3E22B 


DATA 


30230 


DATA 


30232 


DATA 


30234 


DATA 


3G236 


DATA 


30237 


DATA 


30238 


DATA 


30240 


DATA 


30242 


DATA 


30243 


DATA 


30244 


DATA 


30246 


DATA 


30248 


DATA 


30250 


DATA 


30252 


DATA 


30254 


DATA 


30256 


DATA 


30258 


DATA 


3030B 


DATA 


30302 


DATA 


3P304 


DATA 


33306 


DATA 


3030B 


DATA 


30310 


DATA 


303 1 2 


DATA 


30314 


DA 1 A 


30316 


DATA 


303 1 8 


DATA 


30320 


DATA 


30322 


DATA 


30324 


DATA 


30326 


DATA 


3E328 


DATA 


30330 


DATA 


30332 


DATA 


30334 


DATA 


30336 


DATA 


30338 


DAT A 


3034E 


DATA 


30342 


DATA 


30344 


DATA 


30346 


DATA 


30348 


DATA 


30350 


DATA 


30352 


DATA 


30354 


DATA 


3B356 


DATA 


33358 


DATA 


30360 


DATA 


30362 


DATA 
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ChexSum Tables 



j3 1 2 
49e3 



1 = 2150 10190 = 9 65 30224 = 1460 

2 = 115 15000 = 3412 30226 = 1488 

3 = 2208 151310 - 2678 30228 = 1432 
9 =• 14 84 15020 = 1173 30230 = 1488 

10 = 1570 15030 = 3051 30232 = 1432 

4 I I 1 . 2 ,? 15040 = 1182 30234 = 15B2 

12 - 3328 15E60 = 1403 30236 = 1404 

13 = 3340 15070 = 718 30237 = 1516 

14 = 2/67 15100 = 3126 30238 = 1446 
'.I " z'* 4 ^ 15110 = 2461 30240 = 1432 

20000 = 2673 30242 = 1474 

20 IBB = 115 30243 = 1460 

34 = ^032 30100 = 1628 30244 = 3.418 

35 = ^479 30102 = 1628 30246 = 1474 
Z* - 4/6/ 30104 = 1362 30248 = 1446 

37 ~ 3 "^=> 3E 106 = 1488 30250 = 1502 

38 = 2597 30108 = 1418 30252 = 1334 
40 = 69 i 30110 = 1502 30254 = 1628 
iM ~ :i2l, ' 303 12 = 1404 30256 = 1628 
6(?i = 121fe 30114 = 1544 30256 = 1628 
80 = 336 30116 = 1390 30300 = 1626 

100 = 195 3. 30118 = 1502 30302 = 1628 

105 = 493 30120 = 3 404 30304 = ;i 348 

110 = 3.212 30122 = 1553 30306 = 1488 

120 = 2805 303.24 = 1362 30308 = 3 43.8 

150 = 112 30126 = 1530 3G310 = 3.488 

400 = 1540 30128 = 1390 303 3.2 = 1404 

410 = 1007 3B130 = 1502 30: 

420 = 1437 30132 = 1432 30: 



10135 = .1606 



1.4 = 1446 
3 6 =■ 3 446 
1.6 = 1418 



430 = 58 30134 = 1474 

1000 = 3 401 33136 = 3.488 30320 - IL39B 

1010 = 579 30138 = 141B 30322 = 3 460 

1020 = 441 303 40 = 3.5 3 6 3ri3?4 = \?.<m 

1030 = 1267 30142 = 1.404 30326 = 1474 

1040 = 386b 30143 = 1460 30328 -• 1474 

3 050 = 334 30 3.44 = 1502 30330 = 3.460 

106B = 2669 30145 = 3 460 30332 = 1474 

1070 =■ 2739 30 146 = 3.460 30? 



54 = 3 418 
56 = 1501 



1100 = 58 303 48 =143 

3 0EB0 = 391 3B150 = 3.553 30338 = 147 4 

10010 = 3.759 3E152 = 1334 30340 - 1432 

10i:J20 = ,:992 30154 = 1628 30342 =■ 3 446 

3.0021 = 1686 30156 = 1628 30344 = 1488 

10 3.00 = 4469 301 se = i fc?S 30346 = 1432 

101.10 = 4723 3B2B0 = 1628 30348 = 3 530 

10120 =• 3 3 39 33202 = J.o28 30330 =• 141B 

10121 = 4124 30204 = 1348 30352 = 1460 

10122 = 4347 3E206 = 1502 3G354 =. 1488 

10123 = 3015 30208 = 1404 30356 = 3 390 
1013C =; 4352 30210 = 151.6 3G35B = 1.628 



3(3360 = 1628 



10140 = 4552 30214 = 1558 30362 = 1628 

10150 = 4632 30216 = 1376 

10160 = 4624 30218 = 1558 

10170 = 4526 30220 = 1362 TOTAL = 29B87: 

10180 = 1367 30222 = 14BS 
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LETRMAZE 




CLASSIFICATION: Skill 

The object is to collect the letters in the maze in the 
shortest possible time and in the same order as shown at the 
bottom right of the screen. A letter is collected by touching 
it with your man. Joystick 2 moves your man (solid circle) 
vertically and horizontally. When the fire button is held down 
movement will be two spaces at once instead of one. Movement 
'wraps around 1 horizontaly. 

PROGRAMMING SUGGESTIONS 



Increase the size of the maze and give 
the game. 



number of levels 
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Program 


Variables 


A() 


AM 


CODE$ 


DO 


MAX 


OK 


OLDPH 


OLDPV 


PH 


PLACE 


POS 


PV 


Q 


R 


SCREEN 


T 


TIME 


TN 


X 


X$ 


Y 


Z 


Program 


Structure 


10 


100 - 200 


300 - 350 


1000 - 1090 


2000 - 2040 


3000 - 3070 


4000 - 4030 


20000 - 21000 



Holds offsets 

=2 if fire pressed else =1 
Holds code to be done 
Direction of line movement 
Constant for random selection 

Flag 

Old horizontal position 

Old vertical position 

Man's horizontal position 

Points to next code letter to be obtained 

Screen address 

Man's vertical position 

Local 

Where to peek for a random number 

Address of first byte of video RAM 

Local 

Holds score 

Constant =39 

Local 

Local string 

Local 

Local 



Set margins and goto initialize 

Draw the maze 

Read the joystick routine 

Main loop 

Hit something 

Wrong thing 

Got all the pieces 

Initialize subroutine 
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Listing 



IE POKE 82.0! POk 



E ti3 . 39 : GDTO 20(500 



Draw the maze 



t-D (4) : IF Z>FE "I HEN 



100 POSITION B.lsZ-ft(l):? B* < Z . Z+TW) : Z = Z + D < 1 ) « IF Z >FE THEN 
Z=Z-FE ' 

101 IF Z<1 THEN Z=Z+FE 

J 02 A < 1 > =Z : I F PEEK < R ) >MAX THEN D ( 1 > =-D ( 1 ) 

110 POSITION 0.3:Z=A<2>:7 B* <Z , Z+TN) : Z-Z+D (2) : IF 7 >FF THEN 
Z=Z— Ft 

111 IF Z<1 THEN Z=Z+FE 

112 A<2)=Z: IF PEEK CR) >MAX THEM r><2>=- DC"') 

120 POSITION B,5iZ = fl<3):? B* ( Z . Z + TN! : Z=-Z + D (3) : IF Z >FF T^H 

z = i -f e; 

121 IF 2<1 THEN Z-Z+FE 

122 A(3)=Z:IF PEEK i R) >MAX THEN D ( 31 ---D (3) 

130 POSITION 0.7: Z~A>4) ;7 BS < Z . Z + T Nv : 7 = 7, 
Z=Z-FE 

131 IF Z<1 THEN Z=7+FE 

i3:.-i fi(4)=i S jF PEEK(R:>MAX THEN Df4i--D(4i 

J40 POSITION 0..9:2=A;5 J :? Bi- • Z , ? tTW) : Z = Z + n ( ?0 : (<-" Z >FE YHfcl 

141 IF Z<i THEN Z=2+FE 

142 A<5»==7;U : PEEK<R> >MAX THEN Dt5>=-D<5> 
150 F'OS I T I ON l?i . 1 j i 2 = A i 6 ) ; '■'■ H¥ ( ; .. 7 i-TN ) : 7 -- > ■ 

?==Z--FE * " ' 

1=1 IF Z-: 1 THE!-. Z = 2+FE 

3 bZ: Aifc)=Z; IF PEEK <FO >MAX 1 HEN Dc'6i=-£H6> 

Ifafc POSITION 0. 13: /=A (7):? B * < Z , Z+ 1 N; : Z = Z+D •. 7 > : IF 7 ;, F E 1HEN 

161 IF 2<1 THEN Z=Z+FE 

162 A(7)=2:IF PEEK<R)>MAX THEN D <7> =-r> <7> 
170 POSITION 0. 15: Z=A(S) : '■' B* < 7 . Z+TN^ - 7 = 7 + . 

Z=Z-FE 
17i IF Z<1 THEN Z=Z+FE 

172 A<8)=Z:IF PEEK <R> >l-iftx THEN D(S)=-D<&) 

200 RETURN 



■ : '£ THEN 



Hi (8) : IF Z>FE THEN 



Read the joystick routine 



300 Z = STICK<0>:AiS==l:IF NOT 3TRIS(0) THEN A(i=: 

ilB IF 2 = 14 AND PV ;-0 THEN pv=FV-AM 

320 IF Z = 13 AND PV<.21 THEN Pv=PV+AM 

330 IF Z = ll THEN PH = FH-Ali: IF PH<0 THEN PH=TN 

340 IF Z=/ THEN PH=PH+AM: IF PH>TN THEN PH=B 

350 RETURN 
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10B0 GOSUB 100: POSITION 2.23:? TIME; 

1010 GOSUB 300 

1020 PO3=PH+40*F'v+3CREEN 

1 030 0LDP0S=0LDPH+40*0LDPV+SCREEN 

1040 Q=PEEK(PQS> : IF D THEN 2E00 

1B50 POKE OLDPOS.0 

1060 POKE P0S.84 

1070 OLDPH=PH:OLDPV=PV 

1090 GOTO 1000 



"IMt=TIME+l 



Hit something 



2000 IF Gl-34 THEN 1S50 

2010 IF ASC (CODE* (PL ACE . PLACE) i < >0+32 THEN 3000 

2020 POSITION PLACE. 22 :? CHR* (0+32 ) : 

2030 PLACE=PLACE+1 s IF PLACE=il THEN 4000 

204B SOTO 1050 



Wrong thing 



3000 FOR T=l TO 

3010 ? " „. ,_*. ^^, 

3020 FOR T=l TO 

3030 FOR T=l TO 



;S : ? r He >■ \ T 
„. J.NOPE J.VOU ^RluF—ED ., ,T 
.2; FOR /.:=j TO l^.NEXT ;, 
B0B:NE^r 1 



3040 POSITION 5.23 

3050 ? ,; IIGiiiJ&iE28^ * =£?SsQ 

3060 INPUT )'±. 

3070 RUN 



¥#S!' 



Got all the pieces 



4iS0B ;- OR T = :l. TO 28;" :NEXT T 

401B ? " YOU , -iMJi:£ ,. Of. H'IPl ETED ,, THE . 

4B20 ? : ? "YOUF . , !TME. i .HfiE >; " : TINE, 

403B (SOTO 302B 
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Initialize subroutine 



2B000 DIM B*(B8> . X*(9) :t 

20810 GRAPHICS 2+16 

2002(2 POSITION 7,6 

20030 ? #6; "HJAIT" 

213040 FOR X = l TO 40 

2805B B* ( X . X ) =CHR* ', 1 6(3 > 

20060 NEXT X 

20070 FOR X = 41 TO 44 

2BB80 B* ( >; , X ) ='■ 

20E90 NEXT X 

23100 FOR x=45 TO SB 

20 1 IB Bi ( s . X ) = CHRi : ( j 60 > 

2K120 NEXT X 

2E130 DIM A'8i .D , 6) 

2014B FOR X=l TO b 

2Blo0 A(X>=2 

20 17E Z = 1NT iHri'v <S3) *2 ) - 1 

20180 IF Z = Pi THEN 20170 

20190 do: >=--;; 

2E20E NEXT X 

20220 DIM CODE* \ liZii : SC:Rf 

2B23B FOR X = l TO 10 

20240 Z=INT(RND(B)*26)ftD 

20250 IF LEW ( CODE* >=£ THEN 

2B260 QK=1 

20270 FOR T=j TO L £,-,! < r.n., ,,, 

202BB IF ASC UTODE* ■ > ,~ '■ > ~L 

20290 NEXT T: IF NOT OK ; rl 

20300 CODE* ; X . X > =CHRi ( ? i 

20310 NEXT X 

2:032:0 GRAFT! I OB 0l POKE Vo2. 

2B34B FOR T = ; v , ...Riv, •, ■:;;•; YOi-.x- 

2036B »] NT ifiiM'j ■■■ \:i s *40 i 



>77E: l v iAX = 240: TN=: 



i RE =46* 



v-4^l;iUw 



Put character to screen 



,v>" :. 



• J 



f'f'Ht^ ' •■ O.ir ^ ..'.-. 'E j v; ' 

: ; ;T4r>k' id I'F H=>- h: Ol ":■?• v-EV 

:\04"l~ 7 I ME =t.i 

:;K0c oo to ^'.00 
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ChexSum Tables 



10 


= 


906 


100 


= 


3398 


101 


= 


843 


102 


= 


1939 


110 


= 


3402 


111 


= 


843 


112 


= 


1942 


120 


= 


3406 


121 


= 


843 


122 


= 


1945 


130 


= 


3410 


131 


= 


843 


132 


= 


1948 


140 


= 


3414 


141 


= 


843 


142 


= 


1951 


1 50 


= 


3424 


151 


= 


843 


152 


= 


1954 


160 


= 


3428 


161 


= 


843 


162 


= 


1957 


170 


= 


3432 


171 


= 


843 


172 


= 


1960 


200 


= 


58 


300 


= 


1520 


310 


= 


1122 


320 


= 


1216 


330 


= 


1567 


340 


= 


1551 


350 


= 


58 


1000 


= 


1317 


1010 


= 


116 


1020 


= 


929 


1030 


= 


943 



1040 


= 


912 


1050 


= 


227 


1060 


= 


421 


1070 


= 


817 


1090 


= 


127 


2000 


= 


620 


2010 


= 


1288 


2020 


= 


930 


2030 


= 


1041 


20.40 


= 


207 


3000 


= 


738 


3010 


= 


i782 


3020 


-- 


1452 


3030 


= 


626 


3040 


«• 


281 


3050 


= 


6208 


3060 


= 


174 


3070 


= 


59 


4000 


= 


738 


4010 


= 


2022 


4020 


= 


1367 


403E 


= 


191 


20000 


= 


2766 


20010 


= 


2S2 


20020 


= 


254 


2BB30 


= 


523 


20040 


= 


470 


20050 


= 


1049 


20060 


= 


180 


20070 


= 


538 


20080 


= 


757 


20090 


= 


180 


20100 


= 


610 


20110 


= 


1049 


20120 


= 


180 


20130 


= 


695 



20140 


= 


414 


20150 


= 


906 


20160 


= 


627 


20170 


= 


852 


20180 


= 


427 


20190 


= 


630 


20200 


= 


180 


2B220 


= 


757 


20230 


= 


422 


20240 


= 


987 


20250 


= 


503 


20260 


= 


351 


20270 


= 


641 


20280 


= 


1278 


20290 


= 


592 


20300 


= 


1017 


20310 


= 


180 


20320 


= 


666 


20340 


= 


641 


20350 


= 


880 


20360 


= 


818 


20370 


= 


966 


20380 


= 


588 


20390 


= 


1 1 55 


204 1 


= 


179 


20420 


= 


347 


20430 


= 


298 


2044B 


= 


1174 


20450 


= 


763 


20460 


= 


817 


20470 


= 


274 


21000 


= 


127 


TOTAL 


_ 


1 1 3 1 
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BREAKIN 




CLASSIFICATION: Reflex 



You are inside a four-walled container with a 



walls, a moving ball and a bat. The ball is bouncing off 
bricks and you must use your bat to stop it getting past 
and hitting the wall. You are given nine balls for each 
and you lose a ball each time one gets past your bat. The 
can be moved left and right using the joystick. There 
three different bricks walls and two bat 



series of brick 
the 
you 
game 



bat 

are 

The smaller 



the bat, the more points scored. 

PROGRAMMING SUGGESTIONS 

Add more brick walls to the game and make them more exotic. 
Vary the speed that the ball travels round the court. 
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Program 




Variables 




sc 




KE 




BS 




GS 




BV 




BH 




BY 




BX 




BA 




DX 




DY 




Program 




Structure 


i 


10 - 


55 


60 - 


150 


160 - 


260 


270 - 


310 


320 - 


810 


830 - 


890 


900 - 


980 


990 - : 


1080 



1090 - 1150 



Start of screen 

Joystick port value 

Batsize 

Game size 

Vertical postion of bat 

Horizontal position of bat 

Vertical position of ball 

Horizontal position of ball 

Screen position of ball 

Horizontal movement value of ball 

Vertical movement value of ball 



Intializat ion 

Move the bat across the screen 

Check for boundary hit 

Check for missed ball 

Select the game 

Print game one on the screen 

Print game two on the screen 

Print game three on the screen 

End the game 
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Listing 



I SETCOLOR 2,7,4 
10 REM BREAK IN 

II CLR 

12 DIM DIM* (63) , EM* (1 ) , BS* (1 ) , A* ( 1 ) ,SPC*<40) 

13 SP=0:REM BET DEFINITION OF SPACE 

14 POKE 82,0: BE=40000: REM START OF SCREEN 

15 W I =82: REM SET BAT CHARACTER 

16 WA=211:REM SET BARRIER CHARACTER 

17 CI =84: REM SET BALL CHARACTER 

19 POKE 752,0 

20 DIM* (1,63 )=" + + + + *• + + + + + +. + ^ + J. + 4, + 4- + + * *. J. -*■-*-»•-»-> + -»-*•-» 
-J"*-*-*-*--*-*-*-*--*-*--*-*-*-*--*--*- -»■-»■" 

21 FOR 1 = 1 TO 40: SPC* ( I , I )="->": NEXT I 
30 SC=40000:NB=9:BOTO 330 

40 SOTO 20 

50 SOUND 0,60, 10,8:SOUND 0,60,10,0 

55 RETURN 

60 REM MOVE BAT 

61 REM ======== 

70 KE=STICK<1) : IF KE=15 THEN A=64 

80 IF K.E=7 THEN A=12 

90 IF KE=11 THEN A=36 

100 IF A=64 THEN 170 

110 PO=BE+(BV*40)+BH:FOR I=PO TO PO+BS-1 : POKE 1,0: NEXT I 

120 BH=BH+( (A=12)-(A=36) ) *2 

130 IF BH<8 THEN BH=8 

140 IF BH5-38-BS THEN BH=38-BS 

150 PO=BE+(BV*40)+BH:FOR I=PO TO PO+BS-1: POKE I,E2:NEXT I 

160 REM CHECK BOUNDARY HIT 

161 REM ================== 

170 BX=BX+DX:BY=BY+DY:FF=21 

180 IF BX<9 THEN DX=-DX:SOSUB 50: GOTO 230 

190 IF BX>36 THEN DX=-DX:GQ3UB 50: SOTO 230 

200 IF BY<=1 THEN BY=1 : DY=-DY: BOSUB 50: 60T0 230 

210 IF BY>=22 THEN BY=22: DY=-DY: BOSUB 50 

220 REM CHECK BAT /BRICK HIT It PRINT BALL. 

230 POKE BA,SP:BA=SC+BY*40+BX 

240 IF PEEK(BA)=WI THEN BA=B1 : DY=-DY: FF=-133: BOSUB 50: SOTO 

60 

250 IF PEEK(BA)=WA THEN DY=-DY: FF=35; BOSUB 50: GS=GS+1 : POSIT 

ION 0,0:PRIIMT " + " ; GS 

260 POKE BA,CI 

270 REM CHECK FOR MISSED BALL 

280 IF GM=1 AND BY=22 AND DY=-1 THEN NB=NB--1 : POSITION 0,0: P 

PINT "+ + + + + + + + +";" i ";NB 

290 IF BMOl AND BY=11 THEN NB=NB-1 : POSITION 0,0: PR I NT "+■*■■* 

+ 4. + + J. 4 " ; " A ";NB 

300 IF NB<1 THEN 1090 

310 IF INT(GS/100)-(GS/100)<>0 THEN 60 

320 ON SM BOSUB 830,900,990 

330 REM 

340 PRINT CHR*(125) ; 

600 PRINT CHR* < 125) ;: PRINT "*■*■ + *■*■*■ + + *■*■ ^ +.+. ^ ^ ^ ^ +.*> ^+. 
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610 FOR 1 = 1 TO 200: NEXT I : FF=21 : PRINT "+ + " 
620 GOSUB 50 

630 pr i nt " ^ ^ ^ ^ ^SW^mFfmPf3zi=mr m^mw-xrwxKi " -. fob 

T=l TO 90: N EXT T 

640 PRINT " + *^*^^SELECT i GAME, lb NUMBERU-3>";:F0R. T=l 

TO 90 :NEXT T 

650 6M=PEEK(754) : IF GM<26 THEN PRINT : PR I NT " +"; :GOTO 620 

660 IF GM>31 THEN PRINT : PRINT "*-";:GOTO 620 

661 IF GM=31 THEN 6M=1:G0T0 670 

662 IF GM=30 THEN 611=2: GOTO 670 

663 IF GM=26 THEN GM=3:60T0 670 
665 GOTO 640 

670 PRINT ViGM: PRINT : FF=35 
675 POKE 754,0 
680 GOSUB 50 

690 print " ^ ^ ^ „. „ „ . fSjdm*>*,*k:r.+ m L*+4zm*'J B K *r " ■ mp t =i 

TO 90: NEXT 
700 PRINT " + .. ^* ^^ ^SELECT ^BAT^SIZE (2-3) "; : FOR T=l 

!TO 90: NEXT T 
710 BS=PEEK(754) : IF BS<26 THEN PRINT : PRINT " * " ; : GOTO 680 

720 IF BS>30 THEN PRINT : PR I NT "•«••";: GOTO 680 

721 IF BS=30 THEN BS=2:G0T0 730 

722 IF BS=26 THEN BS=3:G0T0 730 
725 GOTO 700 

730 POKE 754,0: PRINT " „. " ; BS 

740 NB=9: 68=100* (4-BS) 

750 FOR T=l TO 500: NEXT T 

760 PRINT CHR* ( 125) ;: FRINT " „. UHHHHH^^Hi^ 

770 FOR 1 = 1 TO 22: PRINT " ^ ^ ^ ^ ^ ^ J 4 

-.^~-nm*^ ***■": NEXT I """"""-.^.nn. 

780 print »i»«iiiiiriin[iniinifftimiiTiiiiiiiiiiiiijiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

■HB"; : POSITION 0,0 
790 POSITION 0,0: PRINT "SCORE" : PRINT "";SS: PRINT "+HIGH"-PR 

INT "SCORE": PR I NT ".."; HS: PRINT "+BALLS" 
800 PRINT "LEFT": PR I NT 'V ; NB: PRINT " +GAME" : PRINT "NUMBER": 

PRINT "^'^GM 
810 PRINT "+BAT":PRINT "SIZE":PRINT " ^ " -, BS 
820 ON SM GOTO 830,900,990 
830 REM GAME 1 

840 POSITION 0,0:PRINT "++" 
850 FOR J = l TO 4:PRINT "*-»-»*-»..»..».»:««->>-.•-....----...._ 

==========:":next j -------------. 

860 IF 6S>0 THEN GS=GS+1 
870 IF SW>0 THEN 60 

P^S nnT-rV ?V™ 21 l BH=17: BY=15: BX=18: BA=SC+BY*40+BX : DX=-1 : DY=-1 
t>90 GOT 110 

900 REM GAME2 

910 POSITION 0,0:PRINT "++" 

920 for j=i to 3:Print •-*-» + *-» * + +:;;;:;;;:; = = = = = = = = = 

:= = :": NEXT J "~ 

930 PRINT " + + + 4. + + + + + + .I. + " 

940 for j=i to 3:print " ->-* + + + -»-*-»:s=== = ===::= = = = = s = = = 

:==:":next J 

950 IF GS>0 THEN GS=GS+ 1 
960 IF SW>0 THEN 60 



77 



970 SW=1 : BV=13: BH=20: BY=10: BX=21 : BA=SC+BY*40+BX: DX=1 ■ DY=-1 

930 GOTO 110 

990 REM BAME 3 

1000 POSITION 0,0: PRINT "4- + " 

1010 FOR 1=0 TO 8: PRINT "-*•-»•* + -*-»•-*■->-.*-*•" ;: FOR ,3=9-1 JO 1 STEP 

-1 : PRINT ":;"; :NEXT J 
1020 PRINT SPC* (1, 1*2+8) ;: FOR J=9-I TO 1 STEP -l-.PRINT "■•".. 

NEXT J: PRINT : NEXT I: PRINT "" '" 

1030 FOR 1=0 TO 8: PRINT "* + ■»* + •** + + •»"■: FOR J = l 

TO 1 + 1: PRINT "::";:NEXT J 
1040 PRINT SPCtU, 1 <8-I)*2)+B>;:F0R J=l TO I + 1:PRINT "::";:NE 

XT J-.PRINT -.NEXT I:POSITION 0,0 
1050 IF BS>0 THEN BS=BS+1 
1060 IF SW>0 THEN 60 

1070 SW=1 : BV=13: BH=16: BY=9: BX=24: BA=SC+BY*40+BX : DX = 1 : DY=-1 
1080 BOTO 110 
1090 REM END OF BAME 
1100 POSITION 0,0:PRINT " 4-*4. + 4,4-4- + + + *4. ,!.-» + .** + + + .*■*-» 

^ANOTHER.. GAME(YVN)"; 
1110 INPUT A* 

1120 IF A*="N" THEN PRINT CHR* < 125) ; : END 
1130 IF A*<>"Y" THEN 1110 
1140 IF GS>HS THEN HS=6S 
1150 SW=0:GOTO 600 
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ChexSum Tables 



40 



13 
14 


= 


2052 
1926 
1820 


16 


= 


2019 


17 


= 


1893 


19 
20 


— 


253 
2648 


21 


= 


1436 


30 


= 


914 


40 


--■ 


142 


50 
55 


= 


9B5 
58 


70 


= 


1 344 


BE 


=.• 


680 


90 


-- 


726 


100 
1 10 
120 
130 


=■ 


602 
2387 
1 443 
676 


14B 
150 
170 


= 


1145 
2581 
1635 


180 
190 
20B 
210 


= 


1216 
1262 
1621 
1476 


230 
240 
250 


= 


1341 
2462 
2B20 


260 


= 


360 


280 


= 


24E0 



290 


= 


1987 


300 


= 


546 


310 


= 


1127 


320 


= 


722 


340 


= 


356 


600 


= 


1S39 


610 


=. 


1185 


620 


= 


192 


630 


= 


5639 


640 


= 


2749 


650 


= 


1424 


660 


= 


745 


661 


= 


996 


662 


= 


996 


663 


= 


987 


665 


= 


181 


670 


=■ 


771 


675 


= 


255 


680 


= 


192 


690 


= 


5073 


700 


= 


2567 


710 


= 


1502 


720 


= 


S31 


721 


= 


9 1 5 


/22 


= 


906 


725 


= 


1 1 8 


730 


= 


551 


740 


= 


1129 


750 


= 


631 


760 


= 


fa 151 


770 


= 


2344 


7B0 


= 


5650 


790 


= 


2712 


800 


= 


1962 



810 


-- 


1E20 


B20 


= 


721 


840 


= 


268 


850 


= 


5505 


860 


= 


809 


870 


= 


436 


830 


= 


4055 


890 


= 


128 


910 


= 


268 


920 


= 


5504 


930 


= 


429 


940 


= 


5504 


95B 


= 


809 


960 


= 


436 


970 


= 


3998 


980 


= 


128 


1000 


= 


268 


1010 


= 


2193 


1020 


= 


2740 


1E30 


= 


1998 


1040 


= 


2962 


1050 


= 


809 


106E 


= 


436 


1070 


= 


3984 


1080 


= 


128 


1100 


= 


2269 


1110 


= 


155 


1120 


= 


761 


i 1 30 


= 


452 


1 1 40 


= 


825 


1150 


= 


434 



TOTAL = 152964 
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RACER 




CLASSIFICATION: Skill 

The object of this game is to get as far around the course as 
possible. Steer the car left and right with the joystick. To 
make the car go faster push the joystick forward, to go slower 
press the joystick back. 

PROGRAMMING SUGGESTIONS 

Add a speedometer to the car so you can tell just how fast the 
car is travelling. Also add other cars to the race to compete 
against you. 
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Program 
Variables 



A 

CAR$ 

CARPOS 

DIFFICULTY 

F 

LEFTLIMIT 

R 

RIGHTLIMIT 

ROAD$ 

ROADPOS 

SCORE 

SPEED 

VOL 

X 

Y 

Program 
Structure 

10 

300 - 610 

1000 - 1060 

2000 - 2080 

20000 - 21220 



Local 

Holds car 

Horizontal position of car 

Difficulty level 

Flag 

Left limit of road 

=53770 Where to peek for a random number 

Right limit of road 

Holds road 

Horizontal position of road 

Holds score 

Speed of movement 

Volume of sound 

Local 

Local 



Jump to initialization 
Main loop 
Game End 
Game start 
Initialize game 



255 
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Listing 



is 



BOTD 20B00 



Main loop 



300 SCORE=SCORE+1:X=RND(0)*DIFFICULTY: IF PEEK (R) >127 THEN X 

=-X 

320 ROADFOS=ROADPOS+X: IF ROADPOS>RIGHTLIMIT THEN ROADPOS=RI 

GHTLIMIT 
330 IF ROADPQS<LEFTLIt'iIT THEN ROADPOS=LEFTLIrtIT 
350 POSITION 1,0:? ROAD* (ROADPOS » R0ADP0S+37) : A=USR (ADR (CODE 

*> ) 
360 IF PEEK(R)>217 THEN POKE 40041 +INT (RND (0) *36) , 1 28 
430 X=STICK(1> : IF (X = ll OR X = 10 OR X = 9) AND CARPOS. >3 THEN C 

ARPOS=CARPOS-l 
440 IF (X=7 OR X=6 OR X=5) AND CARP0S<37 THEN CARPOS=CARPOS 

+ 1 
450 IF PEEK(40920+CARPOS) THEN 1000 
550 POSITION CARP0S,23:? CAR*: 
560 SOUND 0,SPEED+40,2,8 

570 IF (X=14 OR X=10 OR X=6) AND SPEED >0 THEN SPEEDS-SPEED- 1 
590 IF (X=13 OR X=9 OR X=5) AND SPEED<2l5 THEN SPEED=SPFED+ 

1 
600 IF SPEED=B THEN 300 
610 FOR X=l TO SPEED STEP 4: NEXT X : BOTO 300 



Game End 



1000 V0L=15:F0R Y=0 TO 4: FOR X = TO 32: POSITION CARPOS . 23 

1010 ? CHR*(X) r, : SOUND 0, 20 , , VOL: VOL=VOL-0. 09: NEXT X:NEXT Y 

1020 FOR X=0 TO 25:? : NEXT X 

1030 ? "SCORER"; SCORE:? :? :? "AT ^LEVEL ^: "; DIFFICULTY: ? : 1 

1040 ? :? :? "PRESS ^ST ART ^.FOR ^ ANOTHER ^SAME" 

1050 IF PEEK (53279)0-6 THEN 1050 

1060 GOTO 21000 



Game start 



2000 



POKE 752.1:? CHR* ( 125) : FOR X = l TO 30:POSITION 1.0:? ROA 

D*(16,53) ; :A=USR( ADR (CODE*) ) :NEXT X 
2010 CARP0S=22: POSITION CARPOS, 23:? CAR*;: SOUND 0,240,2,8 
2020 POSITION 17,18:? "■STARTIS" ; 
2030 GOSUB 21200: IF NOT STRIG(l) THEN 2070 
2040 POSITION 17,18:? " asswwrnwmi " : 
2050 GOSUB 21200: IF NOT STRIS(l) THEN 2070 
2060 GOTO 2020 
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2070 POSITION 17,18:? " ^ ^ ^ ^ ";: POSITION 18,19:? 

POSITION CARP0S,23:? " ^ " : 
2080 GOTO 300 



Initialize game 



20B00 POKE 82,1:? CHR* ( 125) : DIM ROAD* ( 120) , CAR* (1 ) 
20010 RnQD*= " ■ M I MrMTBIIIM I W IIiBiimail^ 



20020 CAR*=CHR* (123) 
20030 LEFTLIMIT=4 
20040 RI6HTLIMIT=30 
20050 DIM CODE* (58) 

20060 DATA 104, 169, 176, 133,203, 169, 159, 133,204, 169,216,133,20 
5,169, 159, 133.206, 162,22, 160 

20061 DATA 40, 177,203, 145,205, 136, 16,249, 165 , 203 , 56 , 233 , 40 , 13 
3 , 203 , 1 65 , 204 , 233 , 

201362 DATA 1 33 , 2B4 ,165,205,56,233,40,1 33 , 205 ,165, 206 , 233 , E , 1 3 

3,206,202,16,218,96 
20080 FOR X = l TO 58: READ Y: CODE* ( X , X ) =CHR* P/ ): NEXT X 
20090 SETCOLOR 4,8,6 
20100 SETCOLOR 2,4,15 

21010 ? :? :? :? "SELECT ^DIFFICULTY ^LEVEL ^ ( ^1-5) ";: INPUT DIFF 
I CULT Y 

21020 IF DIFFICULTY AND DIFFICULTY>5 THEN ? :? "PLEASE ^ " 

:SOTO 21010 

21021 ? :? "STEER ^CAR ..WITH ...JOYSTICK ^2" 

21022 ? :? "FORWARD ^.= ^FASTER ^BfiCK^ ^SLOWER":? 

21030 ? :? "PRESS »FIRE ^.BUTTON ^TO ^START ..CAR ^MOVING-" : ? :? 

21040 ROADPOS=16 

21050 SPEED=215 

21060 R=53770 

21100 POSITION 14,23 

21110 ? "mEnsmBmsasasi"; 

21120 SOSUB 21200: IF F THEN 2000 

21130 POSITION 14,23 

21140 ? "BPRESS ^START"; 

21150 GOSUB 21200: IF F THEN 2B00 

21160 GOTO 21100 

21200 F=0:FOR >=0 TO 100 

21210 IF PEEK (53279) =6 THEN F=l 

21220 NEXT X: RETURN 
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ChexSum Tables 



10 


= 


114 


3(30 


= 


2154 


320 


= 


1307 


330 


= 


734 


350 


= 


1780 


360 


= 


1447 


430 


= 


2425 


440 


= 


1863 


450 


= 


623 


550 


= 


576 


560 


= 


625 


570 


= 


1776 


590 


= 


1853 


600 


= 


326 


610 


= 


894 


1000 


= 


1557 


1010 


= 


1843 


1020 


= 


632 


1030 


= 


2001 


1040 


= 


2241 


1050 


= 


773 


1060 


= 


130 



2000 


= 


3257 


2010 


= 


1499 


2020 


= 


1143 


2030 


= 


751 


2040 


= 


1783 


2050 


= 


751 


2060 


= 


175 


2070 


= 


1969 


2080 


3C 


114 


20000 


= 


1520 


20010 


= 


10262 


20020 


= 


540 


20030 


= 


337 


20040 


= 


380 


20050 


= 


448 


20060 


= 


4020 


20061 


= 


3547 


20062 


= 


3545 


20080 


= 


1921 


20090 


= 


358 


20100 


= 


367 


21000 


= 


6730 



21010 


= 


2516 


21020 


= 


1 553 


21021 


= 


1917 


21022 


= 


2364 


21030 


= 


3045 


21040 


= 


353 


21050 


= 


363 


21060 


= 


504 


21100 


= 


296 


21110 


= 


2505 


21120 


= 


467 


21130 


= 


296 


21140 


= 


1097 


21150 


= 


467 


21160 


= 


131 


21200 


= 


634 


21210 


= 


959 


21220 


= 


226 



TOTAL = 92784 
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CLASSIFICATION: Evasion 

Move your ship round the room without crashing into the nasty 
monsters bouncing off the walls. Every time you hit one the 
computer will print BANG. Try to live as long as possible 

PROGRAMMING SUGGESTIONS 



Put obstacles in the path of you and the monsters, 
the speed of the game. 



Increase 
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Program 
Variables 

I General purpose 

XI X co-ordinate of you 

Yl Y co-ordinate of you 

X2 X co-ordinate of rock one 

Y2 Y co-ordinate of rock one 

X3 X co-ordinate of rock two 

Y3 Y co-ordinate of rock two 

X4 X co-ordinate of rock three 

Y4 Y co-ordinate of rock three 

Program 
Structure 

2 - 85 Initialize the program 

100 - 130 Data for players 

200 - 630 Set up sprites 

1000 - 1040 Main loop 

2000 - 2205 Move your player 

3000 - 5999 Move the rocks 

7000 - 8000 Do collision testing 

9000 - 9090 Data for machine language program 
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Listing 



2 CLR 

6 FOR 1=30720 TO 30799: READ A: POKE I, A: NEXT I 

7 FOR 1=33792 TO 33792+1023: POKE 1,0: NEXT I 

9 FOR 1=28672 TO 29050: READ A: POKE I, A: NEXT I 

10 POKE 106,128 

20 PM=PEEK (106): PMBASE=PM*256 

30 GRAPHICS 1 

40 POKE 559,62 

50 POKE 53277,3 

60 POKE 54279, PM 

70 POKE 53256,2 

80 POKE 704, 77: POKE 705,77: POKE 706,77 

85 POKE 707,77 

100 DATA 56,56,16,124,186,56,40,108,0,0,0,0,0,0,0,0,0,0,0,0 

110 DATA 255,255,24,24,24,24,255,255,0,0,0,0,0,0,0,0,0,0,0, 



120 DATA 255,255,24,24,24,24,255,255,0,0,0,0,0,0,0,0,0,0,0, 



130 DATA 255,255,24,24,24,24,255,255,0,0,0,0,0,0,0,0,0,0,0, 



200 POKE 53256 , 1 

2.10 POKE 53257, 1 

220 POKE 53258,1 

230 POKE 53259 , 1 

500 X 1=140: Yl=l 00: REM SET PLAYER COOR 

510 X2=INT(RND<0>*150> : Y2=INT CRND (0) *150> 

520 XP2=4:YP2=4 

530 X3=INT (RND (0) *150> : Y3=INT (RND ( 1 ) *150> 

540 XP3=4:YP3=4 

550 X4=INT(RND(0)*150) : Y4=1NT (RND ( 1 > *150) 

560 XP4=4:YP4=4 

570 A=L1SR (28672, XI ,Y1 , X2 , Y2 , X3 , Y3 , X4 , Y4) 

600 FOR 1=32128 TO 32123+19: POKE 1,3: NEXT I 

610 FOR 1=32128+380 TO 32128+380+ 19: POKE I, 3: NEXT I 

620 FOR 1=32128 TO 32128+380 STEP 20: POKE I, 3: NEXT I 

630 FOR 1=32128+19 TO 32128+380 STEP 20: POKE I, 3: NEXT I 

1000 BOSUB 2000: REM MOVE YOU 

1010 BOSUB 3000: REM MOVE 1 

1020 BOSUB 4000: REM MOVE 2 

1030 BOSUB 5000: REM MOVE 3 

1035 A=USR (28672, XI ,Y1 , X2 , Y2 , X3 , Y3 , X4 , Y4) 

1037 BOSUB 7000 

1040 GOTO 1000 

2000 REM MOVE YOUR PLAYER 

2010 POKE 53278,0: A=ST I CK ( 1 ) 

2020 IF A=ll THEN BOSUB 2100 

2030 IF A=7 THEN GOSUB 2200 

2040 RETURN 

2100 IF Xl<5 THEN RETURN 

2105 Xl=Xl-4: RETURN 

2200 IF Xl>140 THEN RETURN 

2205 X1=X 1+4: RETURN 

3000 REM MOVE ROCK ONE 

3005 IF X2>140 THEN XP2=-4 
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3010 IF X2<5 THEN XP2=4 

3G15 IF Y2M55 THEN YP2=-4 

3020 IF Y2<5 THEN YP2= T 

3025 X2=X2+XP2: Y2=Y2+YP2: RETURN 

4000 REM MOVE ROCK TWO 

4005 IF X3>140 THEN XP3=-4 

4010 IF X3<5 THEN XP3=4 

4015 IF Y3>155 THEN YP3=-4 

4020 IF Y3<5 THEN YP3=4 

4025 X3=X3+XP3: Y3=Y3+YP3: RETURN 

4999 RETURN 

5000 REM MOVE ROCK THREE 
5005 IF X4>140 THEN XP4=-4 
5010 IF X4<5 THEN XP4=4 
5015 IF Y4>155 THEN YP4=-4 
5020 IF Y4<5 THEN YP4=4 

5025 X4=X4+XP4: Y4=Y4+YP4: RETURN 

5999 RETURN 

7000 REM 

7010 IF PEEK (53260) <>0 THEN BOSUB 8000 

7020 RETURN 

8000 POSITION 0,0: PRINT #6;"":FRINT #6;"# iAiiB ftNP' 

8010 - 



FOR 1=1 TO 200: NEXT I: POSITION 0,1: PRINT tteT'V 



8020 POKE 53278,0: RETURN 

9000 DATA 104, 104, 104, 141, 61, 113, 104, 1134,141, 60, 113,104 1 B4 

141,75,113,104,104,141,74 
9005 DATA 113,104,104,141,89,113,104,104,141,88,113,104 104 

141,103,113,104,104,141,102 

9010 DATA 113,32,45,112,96,120,32,8,113,160.14,162,0,189,53, 

113,149,176,232,136 
9015 DATA 208, 247, 32, 170, 112, 160, 14, 162, 0,181, 176, 157, 53, J )3 

, 232 , 1 36 , 208 , 247 ,160,14 

9020 DATA 162,0,189,67,113,149,176,232,136,208,247,32,170,11 

2,160,14,162,0,181,176 
9025 DATA 157,67,113,232,136,208,247,160,14,162,0,189,81,113 

,149,176,232,136,208,247 

9030 DATA 32,170,112,160,14,162,0,181,176,157,81,113,232,136 

,208,247,160,14,162,0 
9035 DATA 189,95,113,149,176,232,136,208,247,32,170,112,160, 

14,162,0,181,176,157,95 

9040 DATA 113,232,136,208,247,32,22,113,88,96,165,183,197,18 
2 , 240 , 6B , 1 60 , , 1 65 , 1 B4 

9045 DATA 24,105,46,145,176,169,32,24,101,182,168,166,185,16 

9,0,145,178,200,202,16 
9050 DATA 250,169,32,24,101,183,141,116,113,162,0,142,109,11 

3,166,185,172,109,113,177 

9055 DATA 180,238,109,113,172,116.113,145,178,238,116,113,20 

2,16,237,165,183,133,182,165 
9060 DATA 184,133,189,96,165,184,197,189,208,182,96,173 112 

113,41,15,170,189,36,113 
9065 DATA 238,112,113,96,160,14,162,0,181,176,157,117,113,23 

2, 136,208,247,96, 160,14 

9070 DATA 162,0,189,117,113,149,176,232,136,208,247 96 1 r> 3 

,4,5,10,7,8 
9075 DATA 7 , B , 1 1 , 4 , 2 , 4 , 1 ,4 , 8 , , 208 , , 132 , , 120 , , ,0 , 8 , 
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9080 DATA 16, 0,0,1, 208, 0,133","20, 120, 0,0, 0,8, 0,16, 0,0, 2, 208,0 

9BB5 DATA 134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,120,0,0 

.0 

9090 DATA 8,0,0,0,0,0,0,79,0,0,0,0,0,0,0,(5,141,30, 208 



ChexSum Tables 



2 


= 


40 


6 


= 


1 356 


7 


= 


1421 


9 


= 


1627 


10 


= 


277 


2E 


= 


1124 


30 


= 


144 


40 


= 


420 


50 


= 


406 


60 


= 


473 


70 


= 


372 


80 


= 


1169' 


85 


= 


361 


100 


= 


2555 


110 


= 


2600 


120 


= 


2600 


130 


= 


2600 


200 


= 


371 


210 


= 


372 


220 


= 


373 


230 


= 


374 


500 


= 


2022 


510 


= 


1696 


520 


= 


704 


530 


= 


1769 


540 


= 


712 


550 


= 


1777 


560 


= 


720 


570 


= 


2321 


600 


= 


1205 


610 


= 


1731 



620 


= 


1464 


630 


= 


1620 


1000 


= 


918 


1010 


= 


728 


1020 


= 


745 


1030 


= 


762 


1035 


= 


2321 


1037 


= 


225 


1040 


= 


127 


2010 


= 


887 


2020 


= 


463 


2030 


= 


454 


2040 


= 


58 


2100 


= 


357 


2105 


= 


581 


2200 


= 


419 


2205 


= 


580 


3005 


= 


766 


3E1E 


= 


649 


3015 


= 


789 


3320 


= 


651 


3025 


= 


1222 


4005 


= 


774 


4010 


= 


657 


4015 


= 


797 


4020 


= 


659 


4025 


= 


1246 


4999 


= 


58 


5005 


= 


782 


5010 


= 


665 


5015 


= 


805 



5020 


= 


667 


5025 


= 


1270 


5999 


= 


58 


7010 


= 


756 


7020 


= 


58 


3000 


= 


1160 


8010 


= 


1723 


802.0 


= 


420 


9000 


= 


3800 


9005 


= 


3900 


9010 


= 


3548 


9015 


= 


3747 


9020 


= 


3711 


9025 


= 


3824 


9030 


= 


3633 


9035 


-- 


3778 


9040 


= 


3730 


9045 


= 


3719 


9050 


= 


3845 


9055 


= 


4013 


9060 


= 


3852 


9B65 


= 


3760 


9B70 


= 


3163 


9075 


= 


2355 


9080 


= 


2537 


9B85 


= 


2o37 


9B9B 


= 


2191 


OTAL 


_ 


130781 
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SNOWBALL 




CLASSIFICATION: Evasion 



Use joystick to move the man left and right, 
before they land by pressing the fire button. 



Shoot snowballs 



PROGRAMMING SUGGESTIONS 

Make the snowballs travel down the screen in random paths 
instead of straigh lines. 
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Program 
Variables 



A 

BALL$ 

BALLPOS 

CODE$ 

DIR 

FIREFLAG 

GROUP 

HITS 

L 

LEVEL 

MISSILE$ 

MISSX 

MISSY 

PLAYERPOS 

SCORE 

SCREEN 

SPACE$ 

T 

X 

Program 
Structure 



1 - 



k 



1000 - 
2000 - 
3000 
3010 - 
20000 - 



280 
1060 
2060 

3030 
21010 



Local to set up USR routine 

Code for snowballs 

Ball position 

Holds machine code screen scroll routine 

Direction group moves 

=1 if missile fired 

Base position for snowballs 

Counts hits 

Local 

Difficulty level 

String for missile 

Missile X co-ordinate 

Missile Y co-ordinate 

Position of player 

Score 

Address of first byte of video RAM 

40 spaces 

Local 

Local 



Set the colors 

Switch off cursor and jump to initialize 

Main loop 

The hit routine 

The die routine 

Overrun by a snowball 

Start the game 

Initialize the game 
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Listing 



1 SETCOLOR 1.0,15 

2 SETCOLOR 4,0,9 

3 SETCOLOR 2,0,0 

1 POKE 752 , 1 : POKE 82 , : SOTO 20000 



Main loop 



100 POSITION 0,0:? SPACE* 

102 BROUP=SROUP+DIR: IF 6ROUP<0 THEN 6ROUP=0: DIR=-DIP 

103 IF 6R0UP>2? THEN GR0UP=29: DIR=-DIR 

110 IF LEVEL>RND<0)*20 THEN POSITION RND (0) *10+6ROUP 
LL*; :HITS=HITS~1: IF HITS<0 THEN 3000 

130 X=STICKU):IF X = ll AND PLAYERPOSM THEN PLAYERPO 
RPOS-1 

140 IF X = 7 AND PLAYERP0S<38 THEN PLAYERPOS=PLAYERPOS 

150 IF ( NOT STR IS<1>) AND ( NOT FIREFLAG) THFN FIRE 
P1ISSX = PLAYERP0S:MISSY=22 



, ; ? 


BA 


S=PLP 


YE 


+ 1 




FLAG= 


1: 



200 
210 
220 
230 
240 

250 

260 

270 
280 



Put missile if required 



IF FIREFLAB THEN POKE SCREEN+MISSX + 40*HIS C ;Y 

A=USR (ADR (CODE*) ) 

IF PEEK(SCREEN+920+PLAYERPOS) THEN 2000 

POKE SCREEN+920+PLAYERPOS, 123 

IF FIREFLAG AND PEEK (SCREEN+MISSX+ <40*MISSY 1 ) THEN GOSU 

B 1000 

IF FIREFLAG THEN MIS5Y=MISSY- 1 : IF MISSY=-1 THEN FIREFLA 

o — 

IF FIREFLAG AND PEEK ( 3CREEN+MISSX+ <40*MISSY) ) THEN GOSU 
B 1000 

IF FIREFLAG THEN POKE SCREEN+MI SSX+4B*MISSY 80 
GOTO 100 



The hit routine 



1000 L=SCREEN+MISSX+40*MISSY:FOR X=0 TO 3-> 

1 020 POKE L , X 

1040 SOUND 0,255-7*X,10,8 

1050 NEXT X: SOUND 0,0,0.0: POKE L.0 

1060 HITS=HITS+1 : SCORE=SCORE+l : F IREFLAG=0: RETURN 
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The die routine 



2000 FOR X=0 TO 255: SOUND 0, X , 10, B: BOUND 1 , X+126, 10,8: SOUND 

2.X+2. 10,8: SOUND 3, X+3, 10, 8: NEXT X 
2010 FOR X=255 TO STEP -6:SOUND 0, X , 10,8: SOUND 1,X+1.10,B: 

NEXT X 
2020 FOR X=0 TO 3: SOUND X, 0,0,0: NEXT X 
2030 FOR X=15 TO STEP -l:SOUND 0,50,0,X:FOR Y=l TO 4: NEXT 

Y:NEXT X 
2040 FOR X=0 TO 23:? :NEXT X 
2050 ? :? :? "A ..SNOWBALL ^HAS ^LANDED ^ON ^ YOUR ^HEAD" : ? :? "AND. 

YOUR ^BRAIN ^FREEZES": FOR X = l TO 1000: NEXT X 
2060 ? :? -. ? "SCORE ^"; SCORE:? :? "LEVEL „"; LEVEL: ? :? : GOTO 3 

010 



Overrun by a snowball 



5000 FOR X=l TO 30:? : NEXT X:? CHR*(125) 
BALLS ^HAVE^LANDED":? :? :? "SCORE=' 
L^" ; LEVEL 

5010 ? :? "PRESS ^FIRE^FOR ..ANOTHER ..SAME" 

5020 IF STRIGU) THEN 3020 

5030 RUN 



i SCORE: ' 



"60 ..SNOW 
"AT„.LEVE 



Initialize the game 



20000 DIM CODE* !58) , BALLS C 1 > ,SPACE*<40> . MISSILE* ( 1 ) 

20011 BALLPOS=20:BALL*=CHR*<20) : MISSILE*=CHR* U6 ) 

20012 SPACE$=" ^.m*.*.^*,^*.*.^*.^^^^^^^^^^^*.^^^^. 



20013 
20014 
20015 
20016 
20030 
20040 
20041 
20050 
20060 

20061 

20062 

20070 
21000 
21001 
21002 
21003 
21010 



SCREEN=40000 

DIR=0.25 

3CORE=0 

HITS=60 

REM 

CHRS (125) 

:? :? :? "LEVEL ^" ;: INPUT LEVEL:? :? 

"USE.. JOYSTICK ..2":? :? :? "PRESS ..FIRE ..TO ...START 
DATA 104, 169, 176, 133,203, 169, 159, 133.204. 169,216. 
5, 169, 159, 133,206, 162,22, 160 

DATA 40,177. 203 ,145, 205 ,136,16, 249 ,165, 203 , 56 , 23: 
3,203,165,204,233,0 

DATA 1 33 , 204 ,165, 205 ,56,233,40,1 33 , 205 ,165, 206 , 2" 
3,206,202,16,218,96 

FOR X=l TO 58: READ T: CODE* < X , X > =CHR* <T) : NEXT X 
IF STRIGU) THEN 21000 
PLAYERPOS=20: FIREFLAS=0 
? CHR*U25) 

IF NOT STRIGU) THEN 21003 
GOTO 100 



...SAME" 
133, 2B 

r . ,40,1 3 

>3 , , 1 3 
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ChexSum Tables 



1 


= 


298 


2 


= 


289 


3 


= 


214 


10 


= 


809 


100 


= 


326 


102 


= 


1550 


103 


= 


1178 


110 


= 


2481 


130 


= 


1704 


140 


= 


1176 


150 


= 


1959 


200 


= 


952 


210 


= 


736 


220 


= 


807 


230 


= 


654 


240 


= 


13B2 


250 


= 


1393 


260 


= 


1302 


270 


= 


1144 



280 


= 


112 


1000 


= 


1 344 


1020 


= 


347 


1 040 


= 


779 


1050 


= 


664 


1060 


= 


1469 


2000 


= 


3558 


2010 


= 


2082 


2020 


= 


898 


2030 


= 


2001 


2040 


= 


640 


2050 


= 


5158 


2060 


= 


2006 


3000 


= 


5400 


3010 


= 


2063 


3020 


= 


480 


3030 


= 


59 


10000 


= 


1520 


10011 


= 


1507 



20012 


= 


1 585 


20013 


= 


344 


20014 


= 


■.-•65 


20015 


= 


278 


20016 


= 


428 


20040 


= 


343 


20041 


= 


1103 


20050 


= 


3057 


20060 


= 


4020 


2006 1 


= 


3547 


20062 


= 


3545 


20070 


= 


1 955 


21000 


= 


419 


21001 


= 


662 


2 1 002 


= 


343 


21003 


= 


462 


21010 


= 


112 



TOTAL 



?4929 
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HUNTER 



«»VC ASOUKO tHt SCREE* F&» #S tO*6 ft«. 
POSSUM l v WITHOUT 8E1«6 ©ESTRdYEfr BV THt: 
MWttTKft, YOU GET POlWtS f»ft E6TI«G THt 
POMt'R l>Ji,lS. KMCM 6lt #«£ CO«C VOH 6« 

ana it hi: « C6«e, Move vault ««« with the 



fl« 8UTTOW 



cokt i woe 



CLASSIFICATION: Invader/Evasion 

You are a wild animal being pursued by a hunter. You move 
around the maze using the joystick on port one. No matter 
where you are in the maze, the hunter will know where you are 
and seek you out. As you move through the maze you eat 
munchies. When you have eaten all the munchies, you win. 
There are four levels. 

PROGRAMMING SUGGESTIONS 

Add a facility at the hardest level of the game so that the 
player can 'teleport' to another part of the board. However 
make it so that he cannot control his destination. 
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Program 




Variables 




JL 




SP 




DO 




CI 




Rl 




R 




C 




A 




CN 




Program 




Structure 




15 - 


40 


50 - 


200 


210 - 


560 


570 - 


870 



Screen value of block character 
Screen value of blank character 
Screen value of power pill 
Column position of hunter 
Row position of hunter 
Row position of animal 
Column position of animal 
Joystick direction 
Number of power pills eaten 



Initialization 

Draw borders, maze and power pills 

Move your piece up, down, left and right 

You ran into the hunter; you won the game 
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Listing 



SETCOLDR 2,1,3: POKE 752 , 1 



Initialization 



16 
20 
21 



26 
27 
30 
40 



CLR :DIM A*<4) ,B*(1) ,C*<3) ,E*<3) ,CC*(40> ,RR*(24> ,DR*(i) 

.TAB* (40) ,F*(32> 

DIM D*(30> 

PRINT CHR*(125> s 

POKE 82,0 

DR*(l)="-»": JL=12B:REM BET BLOCK CHARACTER 

SP=0:REM SET ASCII VALUE OF SPACE CHARACTER 

D0=84:REM ASCII VALUE OF POWER PILL 

FOR 1=1 TO 40:TAB*(I,I)=DR*:NEXT I 

YO=10:REM ASCII VALUE OF YOUR PLAYER 

M0=56:REM ASCII VALUE OF MONSTER 

GOSUB 710 

BOSUB 850 



Draw borders, maze and 
power pills 



50 PRINT CHR*(125); 

60 SC=40000:CO=0:BE=SC+207 

70 A*<1 .2)="HH|":B*(1 , 1)=" ^":C*(1 , 2) =A*: C* (3 , 3) =B* 

80 E*(l ,3)=" +.^m" 

90 FOR 1 = 1 TO 40:CC*(I . I > = " -*•" : NEXT I 

100 FOR 1 = 1 TO 24: RR* (1,1 >=" + ": NEXT I 

110 FOR I=SE TO SC+39:P0KE I. 128: POKE I +920 , 128: NEXT I 

120 FOR I=SC TO SC+999 STEP 40: POKE I, 128: POKE 1+39 , 128: NEX 

T I 
130 POSITION 0,0: PRINT TAB* ( 1 , 18) ; "HUNTER" ; 
140 FOR 1=1 TO 25 STEP 3: F* ( I , 1+2) =E*: NEXT I 
150 FOR 1=1 TO 30 STEP 3: D* ( I . 1+2) =C*: NEXT I: PRINT : PRINT : 

PRINT : PR I NT : PRINT 
160 FOR 1=1 TO 5:PRINT TAB* ( 1 , 7) ; D*: PRINT TAB* ( 1 , 7) ; D*: PRIN 

T TAB*(1 ,7) ;F*:NEXT I 
1 70 PR I NT TAB* ( 1 , 7 ) ; D* : PR I NT TAB* ( 1 , 7 ) ; D* 
180 R=2:C=0:POKE SC.128 
190 PO=BE+(R*40)+C:POKE PO , YO 
200 C 1 =26 : R 1 = 1 6 : P 1 =BE+ ( R 1 *40 ) +C 1 : VE=PEEK (PI): POKE P 1 , MO 



Move your piece up, down, 
left and right 



210 A=STICK(1) : IF A=14 THEN GOSUB 370 
220 IF A=13 THEN GOSUB 420 
230 IF A=ll THEN GOSUB 470 
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240 IF A=7 THEN GOSUB 520 

250 GOSUB 290 

260 IF CN=45 THEN GOSUB 640: GOTO 10 

270 POSITION 16,3: PRINT " SHE£33»" ; S 1 ; 

280 GOTO 210 

290 IF SWOAW THEN SW=SW+1 -. RETURN 

300 SW=0 

310 PC=P1:IF CKC THEN C2=C1 : C1=C1+1 : P1=BE+ <R1*40> +C1 : IF PE 

EK(P1)=JL THEN C1=C2:P1=PC 
320 IF C1>C THEN C2=C1 : C1=C1-1 : P1=BE+ <R1*4B) +C1 : IF PEEK (PI) 

=JL THEN C1=C2:P1=PC 
330 IF RKR THEN R2=R1 : R1=R1 + 1 : P1=BE+ (Rl *40) +C1 : IF PEEK (PI) 

=JL THEN R1=R2:P1=PC 
340 IF R1>R THEN R2=R1 : Rl=Ri-l -. P1=BE+ (Rl*40> +C1 : IF PEEK 'PI) 

=JL THEN R1=R2:P1=PC 
35E POKE PC,VE:VE=PEEK(P1):IF VE=YO THEN GOSUB 600; GOTO 10 
360 POKE PI. MO: RETURN 
370 IF R=0 THEN RETURN 
380 T1=PO:R=R-1:PO=BE+<R*40)+C: IF PEEK(PO)=JL THEN PO=ti-r= 

R+l: RETURN 
390 IF PEEK (PO) =13 THEN GOSUB 570 
400 IF PEEK ( PO ) =DO THEN S 1 =S 1 + 1 : CN=CN+ 1 
410 POKE Tl,SP:POKE PO,YO: RETURN 
420 IF R=16 THEN RETURN 
430 T1=PO:R=R+1:PO=BE+(R*40)+C: IF PEEK(PO)=JL THEN PO=Tl:R= 

R- 1 : RETURN 
440 IF PEEK(PO)=D0 THEN SI =S1+1 : CN=CN+ 1 
450 IF PEEK(PO)=MQ THEN GOSUB 570 
460 POKE T 1 , SP : POKE PO , YO : RETURN 
470 IF 0=0 THEN RETURN 
480 T1=PO:C=C-1:PO=BE+(R*40)+C: IF PEEK(P0)=Ji_ THEN C=C+l:PO 

=T 1 : RETURN 
490 IF FEEK(PO)=DO THEN CN=CN+1 : S1=S1 +1 
500 IF PEEK<PO)=MO THEN GOSUB 570 
510 POKE Tl,SP:POKE PO,YO:RETURN 
520 IF C=28 THEN RETURN 
530 T1=PO:C=C+1:PO=BE+(R*40)+C: IF PEEK(PO)=JL THEN C=C- 1 : PO 

=T1: RETURN 
540 IF PEEK(PO)=DO THEN CN=CN+1 : S1=S1 + 1 
550 IF PEEK(PO)=MO THEN GOSUB 570 
560 POKE T 1 , SP : POKE PO , YO : RETURN 



600 
610 



You ran into the hunter; 
you won the game 



570 PRINT CHRS( 125>;: PRINT " YOU ^RAN ^STRAIGHT ^INTO A THF ^HUNTE 

R! ! '. " " " 

580 PRINT : PR I NT : PRINT TAB* ( 1 , 13) ; " YOU ^ATF „." ; CN 
590 PRINT : PR I NT : GOSUB 680: GOTO 10 

PRINT CHR* ( 125) ; : PRINT " „. ^ ..YOU ..WERE ^CAPTURED „BY J'HE ^HUN 
TER! ! ! ! ! ! ":PRINT : PR I NT 

PRINT TAB* (1,10); "YOU ^.ATE ^" ; CN; " ^F'OWEP ^.PILLS" : PRINT ■ PP 
INT 

620 GOSUB 680 
630 RETURN 
640 PRINT CHR*U25>; 
650 PRINT CHR*Q25) ; TAB* (1,13);" CONGRATULATIONS " 
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660 

670 
680 

690 
700 
710 
720 

730 
740 
750 
760 
770 
780 
830 
840 
850 
860 
870 



PRINT : PR I NT s PRINT : PRINT TAB* (1 , 5) ; "YOU ^HAVE ^COMPLETE 

D^LEVEL: ";TY 

PRINT : PRINT : GOSUB 680: RETURN 

PRINT TAB* (1,8) ; "PRESS ..FIRE ^BUTTON „TO ^CONTINUE" ;: FOR 1 = 

1 TO 20:A=STRIG<1) :NEXT I 

A=STRIB(1) : IF A=l THEN 690 

RETURN 

PRINT CHR* (125);: PRINT TAB* < 1 , 16) s "HUNTER" 

PRINT : PRINT : PRINT "MOVE ^AROUND ^THE^SCREEN^FOR^AS^LONG 

^AS": PRINT 

PR I NT " POBB I BLE ^ I THOUT ^BE I NG ^DESTROYED .BY^THE": PR I NT 
HUNTER . ^ YOU ^BET ^FO I NTS ^FOR ^EAT I NG ^THE " : PR I NT 
POWER ^PILLS. ..WHEN ..ALL ...ARE ^GONE ^YOU ^GET" : PRINT 
ANOTHER ^GAME, ...MOVE .^YOUR ^MAN ^WITH ^THE" : PRINT 
JOYSTICK": PRINT 
PRINT 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 680 

RETURN 

PRINT CHR*Q25> ;:PRINT "DIFFICULTY ^LEVEL ^ ( 1-4) 

INPUT A*: IF A*< " 1 " OR A*>"4" THEN 860 

TY=VAL(A*) :AW=4-TY: RETURN 



ChexSum Tables 



1 


= 


709 


15 


= 


3374 


16 


= 


408 


20 


= 


356 


21 


= 


293 


22 


= 


2413 


23 


= 


2783 


24 


= 


2388 


25 


= 


i 5"^jfl. 


26 


= 


2369 


27 


= 


2160 


30 


= 


136 


40 


= 


201 


50 


= 


356 


60 


= 


1229 


70 


= 


3146 


80 


= 


674 


90 


= 


1448 


100 


= 


1419 


110 


= 


1825 


120 


= 


2138 


130 


= 


1225 


140 


= 


1761 


150 


= 


2347 


160 


= 


2879 


170 


= 


1387 


180 


= 


1028 


190 


= 


1439 


200 


= 


2966 


210 


= 


1154 


220 


= 


493 


230 


= 


571 



240 


= 


482 


250 


= 


259 


260 


= 


737 


270 


= 


1752 


280 


= 


129 


290 


= 


1035 


300 


= 


292 


310 


= 


4542 


320 


= 


4063 


330 


= 


4B67 


340 


= 


4069 


350 


= 


1703 


360 


= 


434 


370 


= 


305 


380 


= 


3875 


390 


= 


744 


400 


= 


1689 


410 


= 


821 


420 


= 


391 


430 


= 


3S75 


440 


= 


1689 


450 


= 


784 


460 


= 


821 


470 


= 


306 


430 


= 


3887 


490 


= 


1689 


500 


= 


784 


510 


= 


821 


520 


= 


410 


530 


= 


3887 


540 


= 


1689 


550 


= 


7B4 



560 


= 


821 


570 


= 


2875 


580 


= 


1435 


590 


= 


532 


600 


,=' 


■3226 


610' 


= 


■2390 


620 


■ = 


247 


630 


= 


58 


640 


= 


356 


650 


= 


2026 


660 


= 


2739 


670 


= 


457 


680 


= 


407 1 


690 


= 


1128 


700 


= 


58 


710 


= 


1440 


720 


= 


2872 


730 


= 


2971 


740 


= 


2764 


750 


= 


2776 


760 


= 


2658 


770 


= 


772 


780 


= 


1 15 


B30 


= 


247 


840 


= 


58 


850 


= 


1933 


860 


= 


949 


870 


= 


1250 


ITAL 


_ 


144648 
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TAKEAWAY 




CLASSIFICATION: Logic 



You and the computer take turns at removing gold pieces from a 
chest. The player with no pieces to remove loses his head. 
The game is self prompting. Note: The game can't lose. Use 
this to show your friends how 'smart' your computer is. 



PROGRAMMING SUGGESTIONS 



Music for introduction page, 
etc . 



More ancient 



sounding insults 
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Program 


1 


Variables 


CHEAT 




FLAG 




GOLD 




R 




R$ 




TAKE 




X,Y,Z 




Program 


Structure 


10 




20 - 


130 


1000 - 


1060 


1070 - 


1130 


3000 - 


3040 


5000 - 


5050 


6000 - 


7040 


8000 




9000 - 


9060 



Counts number of times player attempts to cheat 

Flag 

Number of gold pieces remaining 

Local 

Local string 

Number of piece's taken by player 

Used in z=x mod y routine 



Initialize the game 

Introductory text 

Player'sturn 

Machine's turn 

X mod Y routine 

Cheat routine 

Game end 

You have attempted to cheat three times 

Insult routine 



101 



Listing 



Initialize the game 



20 
30 
4B 
50 

60 
70 

se 

90 
100 

:i. IB 

120 
130 



? CHR*< 125) ; :DIM R* (20) : CHEAT=0: FLAS=0 
? "All ikneel ithe^King^will ..speak. ":? 
? " * *3G .VAGABOND .YOU .HAVE .TRIED .TO" 
? "STEALTHY .BOLD. " 
? : ? "VERY ...HELL^. . . . NOW ...WE ..SHALL .PLAY" 

'"■ " A .. 6 A l'-i E . . .. . .„. T H E „ U T C O M E . O F „,. aj H I C H : ' 

? "WILL. ...DETEFCIIINE .YOU .FATE. ..." 

:■' "I N .THE . C H E 5 T .„. BEFORE .,, Y O U . A R E . ' T H E " : ? 
T H A "f .. Y O L .DESIRE" 

2 ; 2 " WE ..SHALL .TAKE ..TURNS .AT .REMOV I NG " 
'■■ " FROM * 1 ... TO . 1 ..p I ECES . " 

' ; ' " ..IF . YOU. CAN .TAKE. THE. .LAST. PIECE"- ■? 
.FREE. TO .LEAVE" 
2 "WITH. THE .BOLD.":? :? "BUT. . .IF . I ..TAKE .THE .LAST .PI ECE 
" : 2 "1 .SHALL .LEAVE ...WITH ..YOUR .HEAD ! " 

? : ? "AS .1 .AM .THE .KING .1 ..SHALL .GO .FIRST" : " "I .TAKE ) LF 
AV I NB . 99 " "" 



1 1 00 ^GOLD .PIECES. 



THEN..YOU.WILL.BE 



Player turn 



1000 

1020 
1025 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1 130 



60LD=99 

IF CHEAT=3 THEN 8000 

GOSUB 9000:2 :? "How ..many ..wi 1 1 .you ..take" ;: INPUT TAKE: 

IF TAKE>GOLD THEN GOSUB 5000: GOTO 10-70 

IF TAKE>10 THEN GOSUB 5000: GOTO 10-70 

GOLD=GOLD-TAKE 



? " You. .have .taken _" ; TAKE; 

? "We .will .take."; 

X=G0LD:Y=11: GOSUB 3000 

2 Z 

SOLD=GGLD-Z 

? "Whi ch .1 eaves ."; GOLD 

IF GOLD=0 THEN 6000 

? :? :SOT0 1020 



^leavi ng ." ; GOLD: 



X mod Y routine 



3000 Z=X/Y 

3010 Z=Z-INT(Z) 

3020 Z=Z+i/<Y*10) 

3030 Z=INT(Z*Y) 

3040 RETURN 
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Cheat routine 



5000 

5010 
5020 
5030 
5040 

5050 



: R=INT(RND(0)*4J : ON R SOTO 5020 , E 



CHEAT=CHEAT+1:? :? 
030,5040,5050 

"THOU „. CHEAT. . . ^TAKE ^CARE ! ! ! " : RETURN 

"BE „.THOU ..BLIND A Dft ^FOOLISH" : RETURN 

"HAVE ^THY ^WITS ^FLED ^THEE" : RETURN 

" THOU ^CONBP I RE A TO ^DEFRAUD ^ME. . ":? "THEE ^SON *OF ^A ^CEPH 
ALOPOD. " : RETURN 
? "GUARD ^THY ^HONOUR ^THOU ^VARLET. " : RETURN 



Game end 



t>000 ? :? :? "WHICH ^MEANB^THAT^I ..HAVE „WQN. 

601.0 ? :? :? "OFF^WITH^HIS^HEAD! ! ! ! " 

6020 ? "Are A there ^any ^other „,thei ves" 

6030 ? "wishing »to ^play A the ^Kinqs ^.aame" : ? 

R* 

e>040 IF R*="N" OR R*="n" THEN 7000 

6050 IF R*="Y" OR R*="y" THEN RUN 

6060 GOSUB 5030:? : GOTO 6020 



? "Y^OR^N": INPUT 



Final message 



7000 ? :? :? " It ^.i s .WEI 1 4 that ^you A have »decl i ned" : ? "to»play» 
the „.Ki nq. " 

7010 ? " As ^.a A pal ace ^quard i I A wi 1 1 ^.tel 1 A you " : ? "that ^.tne ^Ki nq . 
NEVER j.1 oses. " 

7020 ? : ? "The ^Kinq ^can t Jose " 

7030 ? :? :? "FAREWELL...." 
7040 END 



You have attempted to 
cheat three times 



8000 ? :? s? "YCLUHAVE ..ANGERED ^ME ^WITH ^.YOUR" : ? "FOOLISH ^.ATTE 
MPTS^TO ^.CHEAT! ! ":? :? : GOTO 6010 



Insult routine 



9000 IF FLAG=0 THEN FLA6=1 : RETURN 

9010 X=INT<RND(0)*5> : ON X GOTO 9030,9040,9050,9060 

9020 ? "Thy idoom ^draws t d oser .": RETURN 

9030 ? "Hast »thy »wi 1 1 A been ^drawn?" : RETURN 
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9040 ? "Choose, thou ^noxious ^.vermin. ": RETURN 

9050 ? "Thee ^su-f-fer ^nympholepsy. ": RETURN 

9060 ? "Halt ithyiprocrastination ^whelp. ": RETURN 



ChexSum Tables 



10 


= 


1396 


20 


= 


2908 


30 


= 


2156 


40 


= 


1038 


50 


= 


2270 


60 


= 


2042 


70 


= 


1906 


80 


= 


4403 


90 


= 


2367 


100 


= 


1329 


110 


= 


4314 


120 


= 


5331 


130 


= 


3679 


1000 


= 


483 


1020 


= 


507 


1025 


= 


28B5 


1030 


= 


728 


1040 


= 


703 


1050 


= 


553 


1060 


= 


2714 


1070 


= 


1256 



1080 


= 


944 


1090 


= 


197 


1100 


= 


556 


1110 


= 


1445 


1120 


= 


410 


1130 


= 


307 


3000 


= 


562 


3010 


= 


746 


3020 


= 


897 


3030 


= 


743 


3040 


= 


58 


5000 


= 


2750 


5010 


= 


1782 


5020 


= 


1829 


5030 


= 


1 759 


5040 


= 


4023 


5050 


= 


2249 


6000 


= 


2235 


60_10 


= 


1527 


6020 


= 


2682 


6030 


= 


3764 



6040 


= 


868 


6050 


= 


756 


6060 


= 


580 


7000 


= 


5031 


7010 


= 


5479 


7020 


= 


2100 


7030 


= 


1022 


7040 


= 


43 


8000 


= 


4890 


9000 


= 


655 


9010 


= 


2248 


9B20 


= 


2263 


9030 


= 


2516 


9040 


= 


2855 


9050 


= 


2567 


9060 


— 


3258 


"OTAL 


_ 


113564 
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SORTGAME 




CLASSIFICATION: Strategy 

Object of game is to unscramble the board in the smallest 
possible number of moves. To make a move press the key that 
corresponds to the letter on the board that you wish to move. 

PROGRAMMING SUGGESTIONS 

The scramble routine could be sped up considerably by resorting 
to machine language. 
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Program 
Variables 

A 

BOARD ( ) 

CHR 

DL 

M 

Ml 

M2 

MOVES 

MV 

SLOC 

TOTAL 

VALID 

WHAT 

XI 

Y 

Yl 

Z 

Program 
Structure 

10 

90 

100 - 300 

1000 - 1050 

5000 - 5110 

6000 - 6110 

7000 - 7080 

20000 - 22160 



Local 

Holds board 

Screen code for letters 

Local 

Local 

Local 

Local 

Number of times board altered 

Local 

Address of video RAM 

Count of moves made 

Flags valid move 

Holds what to do from menu 

Local 

Local 

Local 

Local 



Jump to initialize routine 

Select graphics mode 

Main loop 

End game 

Draw board in GR.0 

Draw board in GR.2 

Make a move 

Initialize the system 



106 



Listing 



10 OPEN #1 ,4,0," K: ": GOTO 20000 



Select graphics mode 



90 GRAPHICS 2 



Main loop 



100 


SOSUB 6000 




110 


? CHR*<125> 




111 


SETCOLOR 4,3,3 




120 


? "PRESS „.MOVE"; 




130 


GET #1,A 




140 


M=A-64 




150 


IF M<1 OR M>15 THEN 100 




160 


GOSUB 7000 




1B0 


IF VALID THEN TDTAL=TOTAL+l 




200 


Z=0:FOR X=l TO 4: FOR Y=l TO 4: 
: Y=4 


I F BOARD < X , Y > 


210 


Z=Z+1:NEXT Y: NEXT X 




220 


IF Z = 16 THEN 1000 




300 


GOTO 100 





>Z THEN X=4 



End game 



1000 GRAPHICS 0: GOSUB 5000 

1010 POSITION 4,10:? "COMPLETED ^ IN ^" ; TOTAL; " ^MOVFS" : IF MOVES 

=TOTAL THEN ? "PERFECT!" 

1020 ? :? :? "PRESS ^<RETURN> ^FOR ^ANOTHER ...SAME" 

1030 GET #1,A 

1040 IF A<>155 THEN 1030 

1050 RUN 



Draw board in GR.0 



5000 
5010 
5060 
5070 
5080 
5090 
5100 
5110 



? CHR*U25) 
FOR X=l TO 4 
FOR Y=l TO 4 
Z = BOARD(X,Y) : 



IF Z=0 THEN 



IF Z THEN ? CHR*<64+Z> ; " ^ ' 
NEXT Y:? 
NEXT X 
RETURN 
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Draw board in GR.2 



6EB0 DL=PEEK (560) +PEEK (561 ) *256: SLOC=PEEK (DL+4) +PEEK (DL+5) *: 

56 

6010 FOR X=l TO 4 

6060 FOR Y=l TO 4 

6070 Z=BOARD(X„Y) : IF Z=0 THEN CHR=0 

6080 IF Z THEN CHR=Z+32+ ( INT ( Z/4) *64) 

6090 FOKE X*20+Y+SLOC+7+20,CHR 

6100 NEXT Y:NEXT X 

6110 RETURN 



Make a move 



7000 VALID=1 

7010 FOR X=l TO 4: FOR Y=l TO 4: IF BOARD ( X , Y ) =M THEN X1=X:Y1= 

Y 
7020 NEXT Y:NEXT X 
7040 IF BOARD ( Xl-1 , YD =0 THEN BOARD ( X 1-1 , Yl ) =M: BOARD ( X 1 , Y 1 ) = 

0: RETURN 
7050 IF BOARD(Xl+l , Y 1 ) =0 THEN BOARD ( X 1+ 1 , Yl ) =M: BOARD ( X 1 , Yl ) = 

0: RETURN 
7060 IF BOARD(Xl ,Y1+1)=0 THEN BOARD ( X 1 , Yl+1 ) =M: BOARD ( X 1 , Yl ) = 

0: RETURN 
7070 IF BOARD(Xl ,Y1-1 )=0 THEN BOARD ( X 1 , Yl-1 ) =M: BOARD ( X 1 , Yl ) = 

: RETURN 
7080 V AL I D=0: RETURN 



Initialize the system 



20000 DIM B0ARD(5,5) : FOR X=0 TO 5:F0R Y=0 TO 5: BOARD ( X , Y i =99: 

NEXT Y:NEXT X 
20010 Z=0:FOR X=l TO 4: FOR Y=l TO 4 
20020 BOARD ( X, Y > =Z : Z=Z+1: NEXT Y:NEXT X 
21000 SRAPHICS 0:? CHR*(125>:7 :? :? "SELECT":? :7 :? "^1^=^ 

NEW ...BOARD":? :? " ^ Jk ^ = ^SCRAMBLE ^D I SPLAY" : ? 
21010 7 " ^,..3^ = ^SCRAMBLE":? : INPUT WHAT: IF WHAT< 1 OR WHAT>3 TH 

EN 21000 
22000 TOTAL=0: IF WHAT=1 THEN 90 

22010 ? :? "HOW ^MANY ^MOVES „TO ^SCRAMBLE" ;: INPUT MOVES 
22020 GRAPHICS 2 

22100 M1=0:M2=0:FOR MV=1 TO MOVES 

22110 M=INT(RND(0)*15)+lr. IF M=M1 OR M=M2 THEN 22110 
22120 GOSUB 7000: IF VALID=0 THEN 22110 
22130 M2=M1:M1=M 

22140 IF WHAT=2 THEN SOSUB 6000 
22150 NEXT MV 
22160 BOTO 90 
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ChexSum Tables 



10 


= 


609 


90 


= 


145 


100 


= 


209 


110 


= 


343 


111 


= 


350 


120 


= 


848 


130 


= 


316 


140 


= 


594 


150 


= 


678 


160 


= 


225 


180 


= 


684 


200 


= 


2803 


210 


= 


872 


220 


= 


417 


300 


= 


112 


1000 


= 


293 


1010 


= 


3000 


1020 


= 


2451 


1030 


= 


316 


1040 


= 


522 


1050 


= 


59 



5000 


= 


343 


5010 


= 


394 


5060 


= 


395 


5070 


= 


1251 


5080 


= 


B56 


5090 


= 


235 


5100 


= 


164 


5110 


= 


58 


6000 


= 


2632 


6010 


= 


394 


6060 


= 


395 


6070 


= 


1365 


6080 


= 


1540 


6090 


= 


1104 


6100 


= 


338 


6110 


= 


58 


7000 


= 


330 


7010 


= 


2555 


7020 


= 


338 


7040 


= 


2661 


7050 


= 


2659 



7060 


= 


2659 


7070 


= 


2661 


7080 


= 


339 


20000 


= 


2761 


20010 


= 


1142 


20020 


= 


1735 


21000 


= 


4317 


21010 


= 


1955 


22000 


= 


832 


22010 


= 


2239 


22020 


= 


145 


22100 


= 


1081 


22110 


= 


1765 


22120 


= 


621 


22130 


= 


814 


22140 


= 


524 


22150 


= 


176 


22160 


= 


254 



TOTAL 



61931 
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SLEFT 




CLASSIFICATION: Evasion 

The object of the game is to collect as many modules as 
possible. You also need to avoid mines, the roof and floor of 
the cave, and running out of fuel. Hitting a mine (solid 
circle) loses one man. Hitting a fuel container (*) adds 50 to 
your fuel. Modules are solid triangles. Joystick 1 controls 
movement . 

PROGRAMMING SUGGESTIONS 

Add enemy missiles to the game to make it more difficult. Make 
the missiles heat seeking and give the player some way of 
destroying them. 
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Program 


Variables 


A 




DL 




FLAG 




FLAG2 




FUEL 




MEN 




OLDP 




P 




Q 




R 




SCREEN 




SIZE 




T 




U 




X$ 




XZ 




Y 




YP 




Z 




Prograrr 


1 


Structure 


10 




100 - 


250 


1000 - 


1080 


2000 - 


2070 


2300 - 


2330 


3000 - 


3010 


4000 - 


4010 


5000 - 


5040 


8000 - 


8010 


20000 - : 


21080 



Used to set up machine code scroll routine 

Used to calculate starting address of video RAM 

Flag for sound effects 

As above 

Remaining fuel 

Number of men 

Old position of ship 

Current position of ship 

Screen code of whatever the ship hits 

=53770 Where to peek for a random number - 255 

Address of start of video RAM 

Height of cave 

Local variable , many uses 

What to put on screen 

Local 

Address of top right of screen 

Position of top of cave 

Vertical position of ship 

Local, many uses 



Jump to initialize routine 

Main loop 

Setup machine language routine 

Hit something 

Game over 

Collect Fuel 

Collect module 

Out of fuel 

Display number of men left 

Initialization routine 
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Listing 

10 BETCDLDR 1 , 10 , 10: SETCOLOR 2,10,0:? CHR* ( 125) : BOTO 20000 



Main loop 



100 


101 


102 


110 


121 


1 r»"^ 


124 


130 


220 


225 


226 


230 



POKE 205, Y: POKE 206, SIZE: IF FLAB THEN SOUND 1,20, 6, FLAB 

:FLA6=FLA6-1 

POSITION 13,22:? FUEL; " ^" ; : FUEL=FUEL-1 : IF NOT FUEL THE 

N 5000 

IF FLAG2 THEN FLAG2=FLAG2-2: SOUND ,50 , 10 , FLAG2 

Z=INT(RND<0>*5)-2: Y=Y+Z : IF Y< 1 THEN Y=l 

T=0:IF PEEK(R>>191 THEN T = Y*40+INT (RND <0) *SI ZE) *40+XZ : P 

OKE T,84 

U=10:IF PEEK(R)>127 THEN U=72 

IF T AND PEEK(R)>191 THEN POKE T,U 

IF Y+SIZE>21 THEN Y=21-SIZE 

Z=USR (20527) : Z=USR (20480) 

Z=STICK(0) : IF Z=14 AND YP THEN YF-YP-1 

IF Z=13 AND YP<22 THEN YF-YP+1 

OLDP=P: P=SCREEN+YP*40+10: POKE OLDP-1 ,13: 0=PEEK (P) : IF E 

THEN 2000 

POKE P, 127: GOTO 100 



Setup machine language routine 



1000 RESTORE 1010: FOR T=20480 TO 20613: READ A: POKE T A- NEXT 
T: RETURN 

1010 DATA 104,169,64,133,203,169,156,133,204,162,22,160,0,20 

0, 177,203, 136. 145,203,200 
1020 DATA 152,201,40,208,244,136,169,0,145,203,165,203,24,10 

5,40,133, 203 , 1 65 , 204 , 1 05 
1030 DATA 0,133,204,202,208,221,96 
1040 DATA 104,169,103,133,203,169,156,133,204,165,205,170,16 

0,0,169, 83,145,203,24,165 
1050 DATA 203,105,40,133,203,165,204,105,0,133,204,202 ^08 2 

36,165,206,170,24,165,203 
1 060 DATA 1 05 , 40 , 1 33 , 203 , 1 65 , 204 ,105,0,1 33 , 204 , 202 , 208 ,240,1 

65,205,24,101,206,133,207 
1 070 DATA 56 , 1 69 , 22 , 229 , 207 , 1 70 , 1 69 , 1 28 , 1 45 , 203 , 24 , 1 65 , 203 , 1 

05,40,133,203,165,204,105 
10B0 DATA 0,133,204,202,208,236,96 



Hit something 



2000 IF 13=10 THEN 3000 
2010 IF Q=72 THEN 4000 
2020 FOR T=15 TO STEP -0. 
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030 


POKE P , T : SOUND 1 , 50 , , T 


040 


NEXT T 


050 


MEN=MEN-1 


060 


IF MEN=E> THEN 2300 


070 


GOTO 21000 


300 


? CHR*(125>:? :? :? " ^GAME ^OVER 


310 


SOUND 0,0 ,0.0: SOUND 1,0,0,0:? :? 




; MODULES; " ^MODULES" 


320 


? :? :? "PRESS ^< RETURN > ^.FOR ^ AND 


330 


RUN 



. ~ ^ YOU ^COLLECTED ^ " 



FOR .„ ANOTHER ^GAME ";: INPUT X* 



Collect Fuel 



3000 SOUND 1 ,50,6, 15:FUEL=FUEL+50:FLAS=15 
3010 GOTO 100 



Collect module 



4000 
4010 



MODULES=MODULES+l : POSITION 
FLAG2=14:B0T0 100 



20,22: 



"MODULES ^: " ; MODULES; 



Out of fuel 



5000 ? CHR*(125> 

5010 POSITION 10,11:? 

5020 FOR T=255 TO STEP -1 

5030 SOUND 1 ,T, 12,8:NEXT T 

5040 SOUND 1.0, 0,0: GOTO 2300 



Display number of men left 



B000 POSITION 1,23:? " „. ^ ^ " ; 

8010 FOR T=l TO MEN: POKE SCREEN+920+T , 127: NEXT T: RETURN 



Initialization routine 



20000 GOSUB 1000:DIM X* (9): POKE 752,255 
20010 DL=PEEK ( 560 ) +PEEK. ( 56 1 ) *256 
20020 SCREEN=PEEK (DL+4) +256*PEEK (DL+5) 
20060 MODULES=0 
20070 MEN=3 

21000 Y=1:SIZE=9:P0KE 205, Y: POKE 206 , SI ZE: FUEL=300: YP=4 

2 1 00 1 F-SCREEN+ YP*40+ 1 : OLDF -P 
21010 FOR T=l TO 40 

21020 Z=USR (20527) : Z=USR (20480) 
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21030 NEXT T 
21040 POSITION 8,22 
21050 GOSUB 8000 
21060 XZ=SCREEN+39 
21070 R=5377B 
21080 GOTO 100 



"FUEL^: 



ChexSum Tables 



10 


= 


1319 


100 


= 


1995 


101 


= 


1620 


102 


= 


1293 


110 


= 


2224 


121 


= 


2978 


123 


= 


1386 


124 


= 


1159 


130 


= 


1062 


220 


= 


1225 


225 


= 


1558 


226 


= 


1203 


230 


= 


2871 


250 


= 


472 


1000 


= 


1710 


1010 


= 


3833 


1020 


= 


3777 


1030 


= 


1331 


1040 


= 


3884 


1050 


= 


3820 


1060 


= 


3810 



1070 


= 


3852 


1080 


= 


1337 


2000 


= 


460 


2010 


= 


574 


2020 


= 


542 


2030 


= 


900 


2040 


= 


166 


2050 


= 


540 


2060 


= 


369 


2070 


= 


130 


2300 


= 


1322 


2310 


= 


2827 


2320 


= 


2698 


2330 


= 


59 


3000 


= 


1608 


3010 


= 


112 


4000 


= 


1838 


4010 


= 


494 


5000 


= 


343 


5010 


= 


2890 


5020 


= 


574 



5030 


= 


721 


5040 


= 


438 


8000 


= 


502 


8010 


= 


1478 


20000 


= 


985 


20010 


= 


1220 


20020 


= 


1400 


20060 


= 


287 


20070 


= 


353 


210E0 


= 


2204 


21001 


= 


1352 


21010 


= 


456 


21020 


= 


1225 


21030 


= 


166 


21040 


= 


808 


21050 


= 


241 


21060 


= 


584 


21070 


= 


515 


21080 


= 


112 



TOTAL = 
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0X0 




CLASSIFICATION: Strategy 



A standard noughts and crosses game. 
This program is self prompting. 



You play the computer. 



PROGRAMMING SUGGESTIONS 

Use a cursor to input moves (see OTHELLO). 



Program 




Variables 




A 


Local 


B 


Local 


C 


Local 


EVAL 


1,-1 


FULL 


= 1 if 


INDEX 


Local 


LOOP 


Loop 


MNUM 


Local 


MOVE 


Flags 


MOVEQ 


Holds 


PM 


Holds 


Q 


Flag 


R 


Used 



or Evaluation win, loose or draw 
no space on board 

, several uses 

counter- 
in evaluation routine 
who ' s turn it is 
intermediate results 
players move number 

as in EVAL 

if machine moves first 
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R$ 

SCORE () 

T 

W 

WORKBOARD ( ) 

X 

X$ 

Z 

Program 
Structure 



10 
5(300 
6000 
7000 
8000 



10 
5190 
6230 
7030 
8010 



10000 - 10050 



Local 

Score table 

Local, many uses 

Local to print board routine 

Copy of PLAYBOARDO 

Local 

Local 

Local 



Jump to initialization 
Draw Board 

Evaluate proposed move 
Check if board full 
Set scoring table 
Evaluate subroutine 
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Listing 



IE 



GOTO 20000 



1000 

1010 
1020 
1030 
1040 

1050 
1060 
1070 
1080 



Get & do move 



? CHR* < 125) : GOSUB 5000:GOSUB 7000: IF FULL=1 OR EVAL<" >0 

THEN 12000 

POSITION 9,22: IF MOVE=l THEN ? "MY „J10VE" : SOTO ^000 

? "WHERE ^TO?" ;: INPUT PM 

IF PM<1 OR PM>9 THEN ? CHRS ( 125) : SOSUB 5000: GOTO 1000 

IF PLAYBOARD(PM><>0 THEN ? " INVALID ^MOVE" : FOR PM=1 TO 1 

000: NEXT PM:GOTO 1000 

PL A YBOARD ( PM ) =- 1 : MOVE=-MO VE : GOSUB 5000 

FOR T=l TO 9: WORKBOARD <T)=PLAYBOARD(T) : NEXT T 

GOSUB 7000 

IF EVALOE OR FULLO0 THEN 12000 



Machines move 



2000 INDEX=0:FOR T=0 TO 9: MOVE <T> =99: SCORE <T) =99: NEXT T 

2001 MOVE=-MOVE 

2010 GOSUB 7000: IF FULL THEN 9000 

2100 FOR LOOP=l TO 9 

2110 IF PLAYBQARD(LOOP><>0 THEN 3000 

2120 FOR T = l TO 9: WORKBOARD <T> =PLAYBOARD <T> : NEXT T 

2130 WORKBOARD (LOOP )=1: GOSUB 6000 

2140 MOVE C I NDE X ) =LOOP : SCORE ( I NDE X ) =EV AL 

2150 INDEX=INDEX+1 

3000 NEXT LOOP 



Aggressive move 



4000 Q=0:MNUM=0:FOR X=B TO 9 

4010 IF SCORE <X)=1 THEN MNUM=MOVE ( X ) : 0=1 

4020 NEXT X 

4030 IF Q THEN PL A YBOARD (MNUM) =1 : GOTO 1000 



Defensive move 



4100 Q=0:MNUM=0:FOR X=0 TO 9 

4110 IF SCORE (X>=0 THEN MNUM=MOVE < X ) : 0=1 

4120 NEXT X 

4130 IF BOB THEN PL A YBOARD (MNUM) =1 : GOTO 1000 
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4200 G=0:MNUM=0:FOR X=0 TD 9 

42.10 IF SCORE <X>=-1 THEN MNUM=MOVE < X> : Q=l 

4220 NEXT X 

4230 IF BOB THEN PLAYBOARD CMNUM) = 1 : SOTO 1000 



Error if here 



4240 



3T0P 



Draw Board 



5000 
5010 
5011 
5012 
5013 
5020 
5030 
5031 
5032 
5033 
5040 
5050 
5051 
5052 
5060 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 



POSITION 9,4 

W=0:FOR X=l TO 3: SOSUB 5100 
W=W+1:IF W<3 THEN ? " | " ; 
NEXT X 

POSITION 9,5:? " — | 1 — " 

POSITION 9.6 

W=0:FOR X=4 TO 6: SOSUB 5100 
W=W+1:IF W<3 THEN ? "I"; 
NEXT X 

POSITION 9,7:7 " — | 1 — " 

POSITION 9,8 

W=0:FOR X=7 TO 9: SOSUB 5100 

W=W+1:IF W<3 THEN ? "I"; 

NEXT X 

SOTO 5140 

Z=PLAYBQARD(X> = IF Z=0 THEN 7 



IF Z=-l THEN ? 
IF Z=l THEN ? 
RETURN 

POSITION 20,4: 
POSITION 20,5: 
POSITION 20.6: 
POSITION 20,7: 
POSITION 20,8: 
RETURN 



"0" 



"X' 



1 12 13" 

— ■ I 1— 

4 1516" 



7 | 8 19" 



Evaluate proposed move 



6000 A=W0RKB0ARD(7) : B=WORKBOARD (5) : C=WORKB0ARD (3) 

6010 IF A=l AND B=l AND C=l THEN EVAL=1 : RETURN 

6020 IF A=-l AND B=-l AND C=0 THEN EVAL=-1 : RETURN 

6021 IF A=-l AND B=0 AND C=-l THEN EVAL=-1 : RETURN 
6023 IF A=0 AND B=-l AND C=-l THEN EVAL=-1 : RETURN 
6030 A=WORKBO ARD < 1 ) : C=WORKBO ARD < 9 ) 

6040 IF A=l AND B=l AND C=l THEN EVAL=1 : RETURN 

6050 IF A=-l AND B=-l AND C=0 THEN EVAL=-1 : RETURN 

6051 IF A=-l AND B=0 AND C=-l THEN EVAL=-1 : RETURN 

6052 IF A=0 AND B=-l AND C=-l THEN EVAL=-1 : RETURN 
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Evaluate horizontal lines 



6120 

6130 
6140 
6141 
6142 
6150 



0=0: FOR T=l TO 7 STEP 3: A=WORKBOARD (T> : B=WORKBOARD (T+l ) 

:C=W0RKBOARD>T+2> 

IF A=l AND B=l AND C=l THEN Q=l : T=99: GOTO 6150 

IF A=-l AND B=-l AND C=0 THEN Q=-l 

IF A=-l AND B=0 AND C=-l THEN 0=-l 

IF A=0 AND B=-l AND C=-l THEN Q=-l 

NEXT T:IF D<>0 THEN EVAL=Q: RETURN 



Evaluate vertical lines 



61B0 


FOR T=l TO 3: A=WORKBOARD <T> : B=WORKBOARD (T+3) : C=WQRKBOAR 




D<T+6) 


6190 


IF A=l AND B=l AND C=l THEN Q=l : T=99: BOTQ 6210 


6200 


IF A=-l AND B=-l AND C=0 THEN 0=-l 


6201 


IF A=-l AND B=0 AND C=-l THEN D=- 1 


6202 


IF A=0 AND B=~l AND C=-l THEN Q=-l 


6210 


NEXT T 


6230 


EVAL=Q: RETURN 



Check if board full 



7000 FULL=1:F0R T=l TO 9: WORKBOARD <T> =PLAYBOARD <T) : IF PL AYBO 

ARD(T)=0 THEN FULL=0 
7010 NEXT T 
7020 GOSUB 10000 
7030 RETURN 



Set scoring table 



8000 FOR T=0 TO 9s? MOVE (T) , SCORE (T) : NEXT T 



Evaluate subroutine 



9000 POSITION 9,1:? " ...GAME ..OVER ^ ^" : STOP 

1 0000 E V AL=0 : A=WORKBOARD < 7 ) : B=WORKBQARD ( 5 ) : C=WORKBO ARD < 3 ) 

10010 IF A=l AND B=l AND C=l THEN EVAL=1 : RETURN 

10020 IF A=-l AND B=-l AND C=-l THEN EVAL=-1 : RETURN 

1 0030 A=WORKBO ARD ( 1 ) : C=WORKBO ARD ( 9 > 

10040 IF A=l AND B=l AND C=l THEN EVAL=1 : RETURN 

10050 IF A=-l AND B=-l AND C=-l THEN EVAL=-1 : RETURN 
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Evaluate diagonal lines 



10120 Q=0:FOR T=l TO 7 STEP 3: A=WORKBOARD (T) : B=WORKBOARD (T+l ) 

:C=WDRKB0ARD(T+2) 
10130 IF A=l AND B=l AND C=l THEN 0=1 
10140 IF A=-l AND B=-l AND C=-l THEN Q=-l 
10150 NEXT T:IF BOB THEN EVAL=Q: RETURN 



Win, lose or draw 



1B200 FOR T=l TO 3: A=W0RKB0ARD (T) : B=W0RKB0ARD (T+3) : C=W0RKB0AR 

DCT+6) 

10210 IF A=l AND B=l AND C=l THEN 0=1 : T=99: BOTO 6210 

10220 IF A=-l AND B=-l AND C=-l THEN Q=-l 

10230 NEXT T 

10240 EVAL=Q: RETURN 

1B250 REM B.STRETTON 85 

12000 ? :? : IF EVAL=-1 THEN ? " YOU »IN" : SOTO 12030 

12010 IF EVAL=1 THEN ? " J ...WIN" : GOTO 12030 

1202.0 IF FULL=1 THEN ? "^A^DRAW" 

12030 ? : ? :? "PRESS „.< RETURN > A FOR ^ANOTHER ^BAME" 

12040 INPUT X* 

12050 RUN 



Initialize 



20000 DIM W0RKB0ARD(9) , PLAYBOARD <9) ,R*(10) ,SC0RE<9) ,M0VE(9> ,X 

*<9) 
20010 M0VE=-1 
20020 ? CHR*<125> 

20030 DL=PEEK ( 560 > +PEEK (561) *256 

20100 FOR INDEX=0 TO 9: PLAYBOARD < INDEX ) =0: NEXT INDEX 
21000 ? "WILL. ^YOU^MOVE^FIRST ^(Y/N) "i : INPUT R* 
21010 IF R*="Y" OR R*="y" THEN 1000 

21020 IF R*<>"N" AND R*<>"n" THEN ? :? "SORRY":? : GOTO 21000 
21030 R=INT«RND(0)*5)*2+1 
21040 PLAYBOARD (R)=l 
21050 GOTO 1000 
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ChexSum Tables 



10 


= 


114 


1000 


= 


1523 


1010 


= 


1434 


1020 


= 


927 


1030 


= 


1387 


1040 


= 


2330 


1050 


= 


1335 


1060 


= 


1509 


1070 


= 


225 


1080 


= 


571 


2000 


= 


2451 


2001 


= 


451 


2010 


= 


663 


2100 


= 


411 


2110 


= 


612 


2120 


= 


1509 


2130 


= 


821 


2140 


= 


1314 


2150 


= 


521 


3000 


= 


176 


4000 


= 


982 


4010 


= 


1608 


4020 


= 


179 


4030 


= 


946 


4100 


= 


982 


4110 


= 


1543 


4120 


= 


179 


4130 


= 


1006 


4200 


= 


982 


4210 


= 


1664 


4220 


= 


179 


4230 


= 


1006 


4240 


= 


60 


5000 


= 


254 


5010 


= 


962 


5011 


= 


1117 


5012 


= 


179 


5013 


= 


458 


5020 


= 


256 


5030 


= 


968 


5031 


= 


1117 



5032 


= 


179 


5033 


= 


460 


5040 


= 


258 


5050 


= 


974 


5051 


= 


1117 


5052 


= 


179 


5060 


= 


256 


5100 


= 


1075 


5110 


= 


552 


5120 


= 


506 


5130 


= 


58 


5140 


= 


808 


5150 


= 


503 


5160 


= 


819 


5170 


= 


505 


5180 


= 


830 


5190 


= 


58 


6000 


= 


1868 


6010 


= 


1403 


6020 


= 


1506 


6021 


= 


1506 


6023 


= 


1506 


6030 


= 


1225 


6040 


= 


1403 


6050 


= 


1506 


6051 


= 


1506 


6052 


= 


1506 


6120 


= 


3209 


6130 


= 


2205 


6140 


= 


1406 


6141 


= 


1406 


6142 


= 


1406 


6150 


= 


920 


6180 


= 


272^ 


6190 


= 


2142 


6200 


= 


1406 


6201 


= 


1406 


6202 


= 


1406 


6210 


= 


166 


6230 


= 


472 


7000 


= 


2549 



7010 


= 


166 


7020 


= 


115 


7030 


= 


58 


8000 


= 


1409 


9000 


= 


1201 


10000 


= 


2192 


1001.0 


= 


1403 


10020 


= 


1627 


10030 


= 


1225 


10040 


= 


1 403 


10050 


= 


1627 


10120 


= 


3209 


10130 


= 


1306 


10140 


= 


1526 


10150 


= 


920 


10200 


= 


079'7 


10210 


= 


2142 


10220 


= 


1526 


10230 


= 


166 


10240 


= 


472 


12000 


= 


1365 


12010 


= 


995 


12020 


= 


825 


1 2030 


= 


2451 


12040 


= 


178 


12050 


= 


59 


20000 


= 


2148 


20010 


= 


392 


20020 


= 


343 


20030 


= 


1222 


20100 


= 


1109 


21000 


= 


2029 


21010 


= 


848 


21020 


= 


1573 


21030 


= 


999 


21040 


= 


597 


21050 


= 


127 


TOTAL 


= 


127479 
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PINGPONG 




CLASSIFICATION: Reflex 

This is a two player game, the objective being to keep the ball 
going as long as possible. Joysticks move the bats up and 
down. There is a practice mode in which you can play the ball 
against the wall. Pressing the fire button on the joystick 
serves the ball. 



PROGRAMMING SUGGESTIONS 

Ball's rebound could be made dependant on bat's direction at 
time of hit. Size of bats could be varied to make 
harder/easier . 



game 



Program 
Variables 

BALL 

BALLH 

BALLV 

BAT1 

BAT2 

DIRH 

DIRV 

0BAT1 

0BAT2 



Screen code for ball 

Ball's horizontal position 

Ball's vertical position 

Player l's bat position 

Player 2's bat position 

Ball's horizontal direction 1 or -1 

Ball's vertical direction 1 or -1 

Bat l's old position 

Bat 2's old position 
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OLDBALLH 

OLDBALLV 

QZ 

SCORE1 

SCREEN 

SERVE 

T 

WALL$ 

X$ 

Z 

Program 
Structure 

10 

20 - 30 

100 - 250 

4000 - 4030 

5000 - 5030 

20000 - 23000 



Ball's old horizontal position 

Ball's old vertical position 

Constant in joystick routine 

Player 2's score 

Address of start of screen 

Who serves 1 or 2 

Local variable 

Holds graphics for wall 

Local variable 

Local variable 



Jump to initialization 
Put bats onto the screen 
Main loop 
Game end 
Draw court 
Intialization routine 
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Listing 



POKE 752 , 1 : SOTO 20000 



Put bats onto the screen 



20 POKE SCREEN+40*OBAT 1+2,0: POKE SCREEN+40*BATl+2 , 124: IF p 

RACT THEN RETURN 

30 POKE SCREEN+40*OBAT2+38,0:POKE SCREEN+40*BAT2+38 , 124: RE 

TURN 



Main loop 



100 0BATI=BAT1:0BAT2=BAT2: Z=STICK<0>/2: IF Z = QZ THEN 140 

110 IF BAT1>1 AND Z=INT(Z> THEN BAT1=BAT1-1 

120 IF BATK21 AND ZOINT(Z) THEN BAT1=BAT1 + 1 

140 Z=STICK(l)/2: IF Z=QZ THEN 160 

142 IF BAT2>1 AND Z=INT<Z> THEN BAT2=BAT2-1 

150 IF BAT2<21 AND ZOINT(Z) THEN BAT2=BAT2+1 

160 IF BALLH=37 AND PR ACT THEN DIRH=-1 : DIRV=INT (RND (0) *3) - 1 

: SOUND 0,20,10,9 
170 BOSUB 20:OLDBALLH=BALLH:OLDBALLV=BALLV:BALLH=BALLH+DIRH 

: IF BALI_H<2 OR BALLH>38 THEN BOTO 900 
190 SOUND 0,0,0,0: Z=D J.RV+BALLV : IF Z< 1 THEN DIRV=1: SOUND 0,1 

21,10,9 
200 IF Z>21 THEN DIRV=- 1 : SOUND 0,100,10,9 
210 BALLV=BALLV+DIRV:Z=BALLH+40*BALLV+SCREEN: IF PEEK ill = 124 

THEN DIRH=-DIRH:DIRV=INT(RND(0)*3)-1:SOUND 0,30,10,9 
240 POKE Z, BALL: IF OL.DBALLHO20 THEN POKE OLDBALLH+40*OLDBA 

LLV+SCREEN,0:GOTO 100 
250 POKE OLDBALLH+40*OLDBALLV+SCREEN,26:GOTO 100 



Adjust score and serve 



900 SERVE=1:IF BALLH<2 THEN SERVE=2 

1000 IF SERVE=1 THEN SCORE l=SCOREl+l 

1010 IF SERVE=2 THEN SC0RE2=SC0RE2+ 1 

1020 IF SC0RE1=15 OR SC0RE2=15 THEN 4000 

1030 IF PRACT THEN SERVE=1 

2000 BOSUB 5000: BALLV=10: SOUND 0,0,0,0 

2010 POSITION 4,23:? SCORE 1 ;: POSITION 34,23:? SCORE2; 

2020 IF SERVE=1 THEN BALLH=3: DIRH=1 

2030 IF SERVE=2 THEN BALLH=37: DIRH=-1 

2035 BAT1=10:BAT2=10:OBAT1=BAT1:OBAT2=BAT2:GOSUB 20 

2040 POKE SCREEN+40*BALLV+BALLH,BALL 

2050 IF SERVE=1 AND STRIB(0) THEN 2050 

2060 IF SERVE=2 AND STRIB(l) THEN 2060 
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2070 DIRV=INT<RND<0>*3>-1: IF DIRV=0 THEN 2070 
2090 GOTO 100 



Game end 



4000 POSITION 4,23:? SCORE1 ;: POSITION 34,23:? SC0RE2; 

4005 POSITION 0,23 i FOR T=l TO 22:? : FOR Z=l TO 50 STEP 4:S0U 
ND 0,Z,10,9:NEXT Z:NEXT T 

4006 FOR Z=255 TO STEP -1: SOUND 0, Z , 10,9: NEXT Z:SOUND 0,0. 
0,0 

4010 POSITION 10,9:? "Same .over" : ? :? : ? "Press .<RETURN> .-f or 

^another .game. " 
4020 INPUT X* 
4030 RUN 



5000 



Draw court 



CHR*<125> :POSITION 0,0:? WALL*; : POSITION 0,22:? WALL* 



5010 POSITION 0,10:? "." 

5020 FOR T=l TO 21: POSITION 20, T: 

THEN RETURN 
5030 FOR T=l TO 21:P0SITI0N 38, T: 



":";:NEXT T:IF NOT PRACT 
" I "; :NEXT T: RETURN 



Intializat ion routine 



1 12,2-.SETC0L0R 1 , 12 , 14: SETCOLOR 2,11 



CHR* 



INPUT X* 
"g" THEN ' 



20000 SETCOLOR 4, 

(125) 
20010 SCREEN=4E000 
20020 DIM X*<9> 

21000 PRACT=0:? :? :? :? " CPDract i ce .or .CG3ame" 
21010 IF X*<>"p" AND X*<>"p" AND X*<>"B" AND X*< 

? :? "SAY .WHAT???":? :? : SOTO 21000 
21020 IF X*="P" OR X*="p" THEN PRACT=1 
22000 DIM WALL* (40) : FOR T=2 TO 40: WALL* <T , T) =CHR* (160> : NEXT T 

:WALL*(1 ,1)=" ." 
22040 BAT1=10:BAT2=10 
22050 BALL=B4 
22060 (32 = 7.5 
23000 SERvE=l:GOTO 2000 
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ChexSum Tables 



10 


= 


461 


20 


= 


1910 


30 


= 


1780 


100 


= 


1996 


110 


= 


1376 


120 


= 


1402 


140 


= 


1234 


142 


= 


1385 


150 


= 


1411 


160 


= 


2415 


170 


= 


2516 


190 


= 


2112 


200 


= 


1209 


210 


= 


4147 


240 


= 


1681 


250 


= 


1017 


900 


= 


1057 


1000 


= 


868 


1010 


= 


871 



1020 


= 


811 


1030 


= 


543 


2000 


= 


819 


2010 


= 


1192 


2020 


= 


1053 


2030 


= 


1161 


2035 


= 


1791 


2040 


= 


902 


2050 


= 


753 


2060 


= 


835 


2070 


= 


1399 


2090 


= 


112 


4000 


= 


1192 


4005 


= 


2546 


4006 


= 


1615 


4010 


= 


4414 


4020 


= 


178 


4030 


= 


59 


5000 


= 


1327 



5010 


= 


328 


5020 


= 


1569 


5030 


= 


1390 


20000 


= 


1672 


20010 


= 


1426 


20020 


= 


386 


21000 


= 


2759 


21010 


= 


2916 


21020 


= 


1079 


22000 


= 


2982 


22040 


= 


734 


22050 


= 


4B1 


22060 


= 


429 


23B00 


= 


517 



TOTAL = 7221! 
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ROCK COLLECTOR 




CLASSIFICATION: Evasion 



Collect as many rocks as you can in the time allowed. If you 
hit five spikes you die. Use the I to move left and P to move 
right. 

PROGRAMMING SUGGESTIONS 

Add new objects with different score values. 
Make the game work for two players at once. 

Program 
Variables 



X Your position 

SCORE Your current score 

DEATH Lives left 

BRIGHT Time left 



B Your position in 

screen RAM. 
COU Counter 
T,A,S,A$ Local variables 



Program 
Structure 

10 - 50 Inialization 
100 - 250 Main loop 



500 - 660 Crash into object 
1000 - 1520 Game over 
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Listing 



Inialization 



IB GRAPHICS BiPOKE 752,255 

20 X=20 

30 DEATH=5 

40 BRISHT=15 

50 COU=B 



Main loop 



1.00 POSITION INT(RND<1)*40> .23 

110 PRINT "*"s 

120 POSITION INT<RND<1>*40> ,23 

130 PRINT " I " 

140 B=40000+X 

150 IF PEEK<B><>0 THEN BOSUB 500 

160 POKE B.12B 

170 COU=COU-l 

180 IF COLK0 THEN COU=S: BR IGHT=BRIBHT-1 : SE" r \,OLOR 4,0. BRIGHT 

;IF NOT BRISHT THEN GOTO 1000 

190 X = X+( (PEEK (754) =10) OR (F", ICK (0) =7) ) - < (PEEK (754 ) = 1 3) OR 

(STICK <0> =11) ) ; T ;- X<5 OR X >38 THEN X=20 

200 POSITION 0, v. PRINT SCORE 

250 GOTO 100 



Crash into object 



500 IF PEEK (B) =124 THEN GOTO 600 

Sir. FOR T=30 TO STEP -5 

520 SOUND , T . 1 . 1 : SOUND 1 , 255-T .10,10 

530 SETCOLOR 1,4,7/2 

540 NEXT T 

55B SOUND 0.0.0.B: SETCOLOR 1.4, 10: SOUND 1,0.0,0 

5&E SC0RE=3C0RE+ 1 000 

570 POSITION 0.0: PRINT SCORE 

580 RETURN 

60B FOR T=0 TO 50 STEP 5 

610 SOUND 0,7, 10, 10: SOUND 1 , 255-T , 10 , 10 

620 SETCOLOR 4.0.T/2 

630 NEXT T: SOUND 1 , , , 0: SOUND 0,0,0,0 

640 SETCOLOR 4,0, BRIGHT 

650 DEATH=DEATH-1 

660 IF DEATH THEN RETURN 
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Game over 



1030 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
10B0 
1E90 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 

1190 
1500 

1510 

1520 



,T+1 , 10.7 

r+2.10,7 

.T+3,10,7 



, 1 5-T , 8 
,T,10 



FOR T=0 TO 250 

SOUND 0.T.1E.7 

BOUND 1 . 

SOUND 2, 

SOUND 3, 

NEXT T 

FOR A=l TO 20 

FOR T=0 TO 15 

SETCOLOR 1 . 8 . T 

SETCOLOR 

SETCOLOR 

NEXT T 

NEXT A 

SOUND 0.0,0,0: SOUND 1 ,0,0,0: SOUND 2,C 

DIM A* -(20) 

GRAPHICS 18 

A*= " S AME ^O VER " : S=5 : 60SUB 1 500 

Al-=" YOU ^SCORED" : S=5: BOSUB 1500 

A*=STR* (SCORE) : A*<LEN(A*) , LEN (At) +7) = 

B 1500 

POP :RUN 

FOR T=0 TO IMPOSITION S.T: PRINT #fc; A*: SOUND 0.T,10,8:S 

OUND 1,200-T,10.10:NEXT T 

FOR T=0 TO IMPOSITION E,T: PRINT #6; " 

..":NEXT T ---*-.- 

RETURN 



), 0,0: SOUND 3,0,0,0 



..POINTS" 



3=4:60SU 



ChexSum Tables 



10 


= 


513 


20 


= 


359 


30 


= 


333 


40 


= 


350 


50 


= 


338 


10E 


= 


811 


110 


= 


214 


120 


= 


811 


130 


= 


194 


140 


= 


502 


150 


= 


528 


160 


= 


323 


170 


= 


500 


180 


= 


1975 


190 


= 


3863 


200 


= 


323 


250 


= 


112 


500 


= 


633 


510 


= 


537 


520 


= 


125S 



530 


= 


520 


540 


= 


165 


550 


= 


946 


560 


= 


519 


570 


= 


323 


580 


= 


58 


600 


= 


515 


610 


= 


1258 


620 


= 


455 


630 


= 


7E6 


640 


= 


332 


650 


= 


496 


660 


= 


231 


1000 


= 


409 


1010 


= 


453 


1020 


= 


634 


1030 


= 


636 


1040 


= 


638 


1050 


= 


165 


1060 


= 


424 



1070 


= 


347 


1080 


= 


405 


1090 


= 


543 


1100 


= 


416 


1110 


= 


165 


1 1 20 


= 


166 


1 1 30 


= 


1235 


1140 


= 


391 


1150 


= 


167 


1160 


= 


1455 


1 1 70 


= 


1561 


1180 


= 


2B69 


1190 


= 


127 


1500 


= 


2634 


1510 


= 


1739 


1520 


= 


58 



TOTAL 



58638 
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SNAKES 




CLASSIFICATION: Strategy 

This is a two player game where each player must use all his 
skill and intelligence to make his opponent crash into himself 
the side of the screen, or the other snake. Player One uses 
the keyboard and Player Two uses the joystick. 

PROGRAMMING SUGGESTIONS 

If you wanted, you could add a third player (he would have to 
use joystick port 2), or you could add some kind of scorine 
system. 6 



130 



Program 
Variables 

XI, Yl Player One's Co-ordinates 

X2,Y2 Player Two's Co-ordinates 

DX1.DY1 Player One's Direction 

DX2,DX2 Player Two's Direction 

PI1$,PI2$ Names of players one & two 

Program 
Structure 

Line 

10 - 30 Initialisation 

100 - 280 Main loop 

1000 - 1050 Player One's death 

2000 - 2050 Player Two's death 

7000 - 8000 Ask Player's names 
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Listing 



Initialisation 



IB BOSUB 7B00: GRAPHICS 0: POKE 752,255 
20 X 1 =0 : Y 1 = 1 2 : X 2=39 : Y2= 1 2 
30 DX1 = 1 : DY1=0: DX2=-i : DY2=0 



Main loop 



100 


POK 


110 


POK 


120 


IF 


130 


IF 


140 


IF 


150 


IF 


160 


IF 


170 


IF 


ISO 


IF 


190 


IF 


200 


Xl = 




TO 


210 


X2= 


220 


Y 1 = 


230 


Y2= 


24G 


IF 


250 


IF 


260 


IF 


270 


IF 


280 


GOT 



E 40000+Xl+Yl*40, 128 
:E 40000+X2+Y2*40, 128 
(PEEK(754) = 13> THEN DX 1=-1 -. DY1=0 
(STICK (0) =11) THEN DX2=-1:DY2=0 
(PEEK(754)=10) THEN DX1=1:DY1=0 
<STICK(0)=7) THEN DX2=1:DY2=0 
(PEEK (754) =47) THEN DX1=0:DY1=-1 



(STICK (0)=14) THEN DX2=0:DY2=- 
(PEEK(754)=23) THEN DX1=0:DY1= 



(STICK (0) =13) THEN DX: 

X 1 +DX 1 : IF ( X 1 <. OR X 1 : 

1 000 

X2+DX2 

Y1+DY1 

Y2'+DY2 

PEEK ( 40000+ X 1 + Y 1 *4B i = 1 28 

PEEK ( 413000+ X 2 + Y2*40) =128 
< X 1 < OR X 1 >39 ) OR ( Y 1 < 
(X2<0 OR X2>39> OR (Y2<0 

100 



=0:DY2= 
39 ) OR 



1 

1 
1 
(YK0 



OR Yl>23> THEN BO 



THEN SOTO 


1 000 






THEN GOTO 


2000 






OR Yl>23i 


THEN 


SOTO 


1 00E 


OR Y2>23) 


THEN 


GOTO 


2000 



Player One's death 



1000 GRAPHICS 18 

1010 ? #6-.? #6:? #6:? #6; " ^ ^ " ; PL1S; " ^ IS ^DEAD. " 

1020 ? #6:? #6; " ^ „." 5 PL2*; " „, HAS^WON" 

1030 POKE 754,0 

1040 FOR 7=0 TO 1G0:SOUHD i,T,0,10:IF FEEK(754i=0 THEN NEXT 

7: SOTO 1040 

1 050 RUN 



132 



Player Two's death 



? #6; " ^" ;PL2*; " ^.IS^DEAD. 
;PL'iS; " ^HAS^WON" 



2000 GRAPHICS 18 

2010 ? #6:? #6:? #6: 

2020 ? #6:? #6; " 

2030 POKE 754,0 

2040 FDR T=0 TO 100:SOUND 1 ,T .0, IBs IF PEEK(754)=0 THFN NEXT 

TsGOTO 2040 

2050 RUN 



Ask Player's names 



7000 
7010 



7030 
7040 



7050 
7060 



7070 
7080 



7090 
8000 



DIM PL1*(8) „A*<40) „PL2*C8) 

GRAPHICS 2: POSITION 0,5:? #6; "PLAYER ^ 1 

AX. ,,8 ^CHARACTERS) " 

INPUT A* 

IF LEN(A*>>8 THEN GRAPHICS 18: POSITION 

N^IT.YOU^FOOL! " : FOR T=0 TO 1000:NEXT T 

PL1*=A* 

GRAPHICS 2:P0SITI0N 0,5:? #6; "PLAYER ^2 

AX. „.8 ^CHARACTERS) " 

INPUT A* 

IF LEN<A*)>8 THEN GRAPHICS 18: POSITION 

N^IT.YOU^FOOL! " : FOR T=0 TO 1000:NEXT T 

PL2*=A* 

RETURN 



^NAME . 



#6: " (M 



0,6: ? 


#6; " 


SHORTE 


:GOTO 


7010 




^NAME 


„?":' 


»6; " (fi 


0,6: ? 


#6; ' 


SHORTE 


-. GOTO 


7050 





ChexSum Tables 



10 


= 


769 


20 


= 


1454 


30 


= 


1371 


100 


= 


784 


110 


= 


788 


120 


= 


1336 


130 


= 


1194 


140 


= 


1277 


150 


= 


1 1 28 


160 


= 


1387 


170 


- 


1196 


180 


= 


1 296 


190 


= 


1 1 40 


200 


= 


2E4 6 


210 


= 


552 


220 


= 


549 



230 


== 


555 


240 


= 


1126 


250 


= 


1146 


260 


= 


1437 


270 


= 


1461 


280 


= 


112 


1000 


= 


167 


1010 


= 


1 657 


1020 


= 


1221 


1030 


= 


255 


1040 


-■ 


1846 


1050 


= 


59 


2000 


= 


167 


2010 


= 


165S 


2020 


= 


1220 


2030 


= 


255 



2.040 


-■ 


1862 


2050 


= 


59 


7000 


= 


1113 


7010 


= 


3130 


7030 


= 


1 63 


7040 


= 


3659 


7050 


= 


397 


7060 


= 


3131 


7B7B 


= 


163 


7080 


= 


3723 


7090 


= 


398 


8000 


= 


58 



TOTAL = 5B465 
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DIAMOND HUNT 




CLASSIFICATION: Reflex 

In the time allowed, you must collect all the diamonds you can. 
If you crash into a rock, five more diamonds will be scattered 
across the screen, but time will be taken away. 

PROGRAMMING SUGGESTIONS 



Increase the speed of your man as 
diamonds . 



you collect more and 
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Program 
Variables 



X 

Y 

SCORE 

TIME 

U 

S,S1 

S2 

FLAG1.FLAG2 

NOISE, N0ISE1 

T 

Program 
Structure 

10 - 50 

100 - 250 

500 - 600 

1000 - 1040 

2000 - 2050 

5000 - 5070 

6000 - 6060 



The X coordinate 

The Y coordinate 

Your score 

The time you have left 

Character you have crashed into 

Music data 

Flag to indicate end of music 

Flags for sound effects 

Sound effect pitches 

Dummy variable 



Initialize the game 

Main loop 

Hit the diamond 

Hit a rock 

The time is up 

Music data 

Draw the title scree 
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Listing 



GOSUB 6(300 



10 
20 
30 

40 
50 



Initialize the 



game 



255: GRAPHICS 



POKE 752 
X=0:Y=i 

FOR T=0 TO 9: POKE 40000+ I NT (RND ( 1 ) *880> , 84: POKE 

NT<RND(1>*880> ,96:NEXT T 

SCORE=0:TIME=999 

POSITION 0,22:PRINT "_,_SCORE: __ TIME 



40000+1 



100 
110 

120 
130 
140 
150 
160 
170 
180 
190 

200 

210 



230 
240 
250 



Main loop 



OR < ST I CK < .0 > = 1 3 ) ) - < < PEEK < 754 ) =47 ) O 



PDKE 40000+X+Y#40,0 

Y= Y+ ( ( PEEK ( 754 ) =23 > 

R <STICK(0)=14) ) 

IF Y<0 THEN Y=21 

IF Y>21 THEN Y=0 

X=X+1:IF X>39 THEN X=0 

U=PEEK (40000+ X+Y*40) 

POKE 4G00B+X+Y*40, 127 

IF U=96 THEN SOSUB 500 

IF U=84 THEN SOSUB 1000 

T I ME=T I ME- 1 : POS I T I ON 30 , 

OTO 2000 

READ S.S1 ,S2: SOUND 0,S,10, 

N RESTORE 

IF FLAG1 THEN N0ISE=N0ISE-1 : SOUND 2 , NOISE , B , 13: SFTCOLOR 
1,8,1 NT '. RND a ) * 1 5 ) : I F NO I SE< 1 THEN FLAG 2 =0 : SOUND -700 

,0:SETCOLOR 1,13,10 

NOISE1=NQISE1-10:SOUND 3, N0ISE1 „ 10 , 10: IF 
NOISE1=30:FLAG2=FLA62-1: IF FLAG2=0 THEN S 



TIME; " ^"; : IF TIME<1 
,10: SOUND 1, SI ,10,10; IF S2 



HEI 



THE 



IF FLA62 THEN 
NO I SE 1 < 1 THEN 
OUND 3.0,0,0 
IF FL.AG2 THEN 
IF NOT FLAG2 
GOTO 100 



SETCOLOR 2, INT (RND ( 1 ! * 15) ,3 
THEN SETCOLOR 2,11,5 



Hit the diamond 



500 SCORE=3CORE+50 

510 POSITION 15,22: 

520 NOISE 1=30: FLAG: 

600 RETURN 



SCORE; 
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1000 FOR T=B TO 4 

1010 POKE 40B00+ 1 NT ( RND ( 1 > *880 > ,96 

1020 NEXT T 

1030 TIME=TIME-2B 

1035 NO I SE= 10: FLAG 1=1 

1040 RETURN 



The time is up 



2000 GRAPHICS IB: SOUND ,0,0,0: SOUND 1 , , , 0: SOUND 2,0 E-S 

OUND 3,0,0,0 

? #6:? #6:? #6:? #6; " ,, ^ 4 ijL ^TIME^UP ! " 

? #6:? #6; "YOUR ^SCORE ^WAS „/' ; SCORE 

POKE 754,0 
2040 SOUND 0,INT(RND(1>*30) ,7,10:SDUND 1 . INT (RND ( 1 ) *255) , 4 , 1 

0: IF PEEK (754) =0 THEN GOTO 2040 
2050 RUN 



2010 
2020 
2030 



Music data 



5000 


DATA 162,31 


,0,162 


,81,0 


162 




1 .0.96,81,0 


,96,81 


.0.96 


81, 


5010 


DATA 162,81 


0, 162 


SI ,0 


162 




1,0,96,72,0 


,96,72 


,0,96 


72, 


5020 


DATA 162,64 


0, 162 


64 , 


162 




3,0,96, 53 , 


96 , 53 


,0,96 




5030 


DATA 162.53 


0, 162 


53,0 


162 




3,0,96,64,0 


,96,64 


0,96 


72. 


5040 


DATA 162,64 


0,162 


64,0 


162 




4,0,96,64,0 


96,64 


0,96 


64, 


5050 


DATA 162,64 


0,162 


64,0 


162 




4,0,96,72, 


96 , 72 


0,96 


72, 


5060 


DATA 162,81 


0, 162 


81,0 


162 




1 ,0,96,81 ,0 


,96,81 


, 96 


81 , 


5070 


DATA 162,81 


0,162 


81,0 


162 




1,0,96,81,0 


96,81 


0,96 


0,0 



,81 ,0,162,81,0,108,81,0,108,8 
0,96,81 ,0,108,81 ,0, 108,81 ,0 
,31 ,0, 162,81 ,0, 108,81 ,0, 108,8 
, 96 , 72 , , IBS , 72 , , 108 , 64 , 
,53,0,162, 53 ,0,108,53,0,108,5 
, 96 , 53 ,0,108,53,0,1 08 ., 53 . 
,53,0,162,53,0,108, 53 ,0,108,5 
0,96,72,0, 108,81 ,0, 108,81 ,0 
, 64 , , 1 62 , 64 , , 1 08 , 64 , , 1 08 , 6 
, 96 , 64 , , 108 , 64 , , 108 , 64 , 
, 64 , , 1 62 , 64 , , 1 08 , 64 , , 1 08 , 6 
, 96 , 72 , , 108 , 72 , , 108 , 72 , 
,81 ,0, 162, SI ,0, 108,81 ,0, 108,8 
0,96,81 ,0, 108,81 ,0, 108,81 .0 
,81 ,0, 162, 81 ,0, 108,81 ,0, 108,8 
,96,0,0,108,0,0,108,0,1 



Draw the title screen 



6000 GRAPHICS 18 

6005 POKE 754,0 

6010 FOR T=0 TO IMPOSITION T,5:? #6; " ^DIAMOND „." : NEXT T 

6015 FOR T=0 TO 30 STEP 10: SOUND 1 , T , , 15: NEXT T: SOUND 1,0,0 

,0 
6020 FOR T=10 TO 1 STEP -IMPOSITION T,5:? #6; " ^DIAMOND „" : NEX 

T T 
6030 FOR T=0 TO 15: POSITION T,7:? #6; " ^.HUNT" : NEXT T 
6035 FOR T=0 TO 30 STEP 10: SOUND 1 , T ,0, 15: NEXT T: SOUND 1,0,0 

,0 
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6040 FOR T=14 TO 1 STEP -1: POSITION T,7: 



#6; " ^HUNT, 



;NEXT T 



6050 IF PEEK (754) <>0 THEN RETURN 
6060 SOTO 6010 



ChexSum Tables 



5 


= 


209 


10 


= 


513 


20 


= 


617 


30 


= 


2953 


40 


= 


785 


50 


= 


1635 


100 


= 


678 


110 


= 


2731 


120 


= 


597 


130 


= 


59B 


140 


= 


1154 


150 


= 


1019 


160 


= 


783 


170 


= 


572 


180 


= 


565 


190 


= 


1724 


200 


= 


1959 


210 


= 


3915 


220 


= 


3414 


230 


= 


1057 



240 


= 


611 


250 


= 


112 


500 


= 


578 


510 


= 


534 


520 


= 


754 


600 


= 


58 


1000 


= 


326 


1010 


= 


1106 


1020 


= 


161 


1030 


= 


533 


1035 


= 


715 


1040 


= 


58 


2000 


= 


1477 


2010 


= 


1590 


2020 


= 


1640 


2030 


= 


255 


2040 


= 


2910 


2050 


= 


59 


5000 


= 


5200 


5010 


= 


52B1 



5020 


= 


5192 


5030 


= 


5196 


5040 


= 


5212 


5050 


= 


5206 


5060 


= 


5200 


5070 


= 


4973 


6000 


= 


167 


6005 


= 


255 


6010 


= 


1738 


6015 


= 


1559 


6020 


= 


1988 


6030 


= 


1511 


6035 


= 


1559 


6040 


= 


1796 


6050 


= 


505 


6060 


= 


223 



TOTAL 



93636 
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SPACMAN 




CLASSIFICATION: Invader/Evasion 



Collect all of the objects on the 

hear 

down 



jects on the screen and avoid the love 
heart. Use the I,P,Q and Z keys to move left .right ,up and 



PROGRAMMING SUGGESTIONS 

Increase the speed of the game by resorting to machine code 
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Program 
Variables 



SCORE 

LEVEL 

LIVES 

X,Y 

A,B 

OBJ 

T 

VA 

UY 



Your score. 

The level you are at in the game. 

The number of lives left 

Your player% coordinates on the screen 

The love hearts X and Y coordinates 

Number of objects collected 

Dummy variables 

Character under love heart 

Character under you 



Program 
Structure 

Lines 

5 - 80 Initailization 

100 - 250 Main loop 

500 - 580 Get object 

1000 - 1060 Death 

5000 - 5060 Title screen 
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Listing 



Initailization 



5 60SUB 5000 

10 SC0RE=B:LEVEL=1:LIVES=3 



Initialize display 



20 GRAPHICS : POKE 752.255 

30 X=39:Y=21 

40 A=l:B=l:OBJ=-i 

50 POSITION 0,22: PRINT " ^ ^ „ ^LEVEL: "; LEVEL; " ^ ^ ^ ^.SCORE- " • 

SCORE; " ^.^LIVES: " ; LIVES 
60 FOR T=0 TO <LEVEL*2+10> : POKE 40000+ INT (RND ( 1 ) *81 9) „ 84: N 

EXT T 
70 UA=PEEK (40000+A+B*40) : UY=PEEK <4E000+X+Y*40) 
80 IF LIY=84 THEN SOSUB 500 




100 POKE 40000+A+B*40.UA 

1 10 A=A+ (X>A) - (X<A) : B=B+ <Y>B> - ( Y<B) 

120 UA=PEEK(40000+A+B*40> : IF UA=92 THEN GOTO i 00E 

130 POKE 4E000+A+B*40„64 

140 POKE 40000+X+Y*40,UY 

150 X = X+( (PEEK (754) =10) OR (ST ICK (0) =7) ) - ( (PEFK (7 

(STICK (0) =11 ) ) 

160 IF X>39 THEN X=0 

170 IF X<0 THEN X = 39 

180 Y=Y+( (PEEK (754) =23) OR 

R (STICK (0) =14) ) 

190 IF Y>21 THEN Y=0 

200 IF Y<0 THEN Y=21 

210 UY=PEEK (40000+X+Y*40) 

220 POKE 40000+X+Y*40,92 

230 IF <<A=X> AND (B=Y)) AND (UAOB4) THEN BOTO J 000 

240 IF UY==84 THEN GQSUB 500 

250 BOTO 100 



4 ) = 1 3 ) OR 



(STICK(0>=13) )-( (PEEK(754)=47) 
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500 UY=0:OBJ=OBJ+l:5CORE=SCORE+25: POSITION 21,22:? SCORE; 
505 FOR T=0 TO 30 STEP 2: SOUND 1 , T , , 9: NEXT T: SOUND 1,0,0,0 



510 IF OBJO(LEVEL*2+10) THEN RETURN 

520 GRAPHICS 18 

530 7 #6:7 #6:? #6:? #6:? #6; " ^ „, ^ ^ ^ ..WELL ^DONE ! " 

540 FOR T=0 TO 300: NEXT T 

550 GRAPHICS IB 

560 LEVEL=LEVEL+1 

570 ? #6:? #6:? #6:? #6:? #6; " „. ^ *. ... ^ ..LEVEL „." ; LEVEL 

580 FOR T=0 TO 255: SOUND 1 , T , 10 , 10: NEXT T:POP : SOUND 1,0,0, 
0:BOTO 20 



Death 



1000 


LIVES=LIVES-i 


1005 


FOR N=0 TO 5: FOR T=255 TO 200 STEP -5: SOUND l.T,10,10:S 




OUND 0.T-200, 0.9: NEXT T:NEXT N: SOUND 1 , G , , 0: SOUND 0,0, 




0,0 


1010 


IF LIVES THEN GOTO 20 


1020 


GRAPHICS 18 


1030 


? #6:? #6:? #6:7 #6; " ^ „. „ ..YOU ^ARE ..DEAD. " 


1031 


FOR T=0 TO 10: SOUND 1,0,0,0:READ A, B: SOUND l.A,10,10:FO 




R N=l TO B:NEXT N:NEXT T : SOUND 1,0,0,0 


1032 


DATA 108,80, 108,80. 108,40, 108,80,91 ,80,96,40,96,80. 108, 



40, 108,80, 114,40, 10B, 160 
1040 POKE 754.0 

1050 IF PEEK (754) =0 THEN GOTO 1050 
1060 RUN 



Title screen 



5000 GRAPHICS 0:SETCOLDR 2,12,4 

5010 POSITION 0,5 

5015 POKE 754.0 

5020 7 "^^"j 



Graphics for title 



5030 



i ^ ^ ... i .. 1 ^' 






I .. S *.^^^^^^. 
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5040 
5045 
5046 
5047 
5048 
5050 
5060 



? :? rSETCOLQR 1 ,0 , INT (RND U > *1 5) 
SOUND 0,INT(RND<1)*255> ,0,10 
FOR T=0 TO 255 STEP 16 
SOUND 1,T,10,10 
NEXT T 

IF PEEK < 754 )>0 THEN SOUND 0, , , 0: SOUND 1 , , , 0: RETURN 
GOTO 5020 



ChexSum Tables 



5 


= 


193 


10 


= 


986 


20 


= 


513 


30 


= 


776 


40 


= 


1119 


50 


= 


2565 


60 


= 


2015 


70 


= 


2118 


80 


= 


559 


100 


= 


811 


110 


= 


2501 


120 


= 


1681 


130 


= 


852 


140 


= 


808 


150 


= 


2649 


160 


= 


626 


170 


= 


625 


180 


= 


2737 


190 


= 


604 


200 


= 


603 



210 


= 


1030 


220 


= 


894 


230 


= 


1609 


240 


= 


559 


250 


= 


112 


500 


= 


2019 


505 


= 


1551 


510 


= 


750 


520 


= 


167 


530 


= 


1958 


540 


= 


524 


550 


= 


167 


560 


= 


495 


570 


= 


1B43 


580 


= 


1910 


1000 


= 


498 


1005 


= 


360 1 


1010 


= 


323 


1020 


.-== 


167 


1030 


= 


1848 



1031 


=' 


3165 


1032 


= 


3804 


1040 


= 


255 


1050 


= 


665 


1060 


= 


59 


5000 


= 


480 


5010 


= 


182 


5015 


= 


255 


5020 


^ 


230 


5030 


= 


4248 


5040 


= 


947 


5045 


= 


885 


5046 


= 


542 


5047 


= 


529 


5048 


= 


167 


5050 


= 


1151 


5060 


•= 


223 



rOTAL 



sis: 
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MAZING 




CLASSIFICATION: Evasion 

Move your man around the screen with joystick 1. You must eat 
all of the asterisks. When you have eaten all of the asterisks 
you will move onto the next level. A nasty little beastie will 
try to eat you while you are moving round the board. 
Beware ! ! ! ! 



PROGRAMMING SUGGESTIONS 

Increase the number of nasties moving round the screen and 
music to the background to make the game more interesting. 



add 
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Program 
Variables 

BDIR 

BPOS 

BX 

BY 

FLAGS 

HITFLAG 

LEVEL 

M$ 

MAN 

NUMMEN 

OLDB 

OLDCHR 

OLDPLACE 

PLACE 

POSH 

POSV 

RAND 

SCREEN 

Program 
Structure 

10 
20 
100 - 212 
1000 - 1500 
2000 - 2030 
3000 

3010 - 3080 

3100 - 3230 

3500 - 3580 

4000 - 4040 

9000 - 9330 

9500 - 9520 

9530 - 9590 

9600 - 9690 

10001 - 10024 

10051 - 10074 

10100 - 10124 

10151 - 10174 

20000 - 20110 



Beast direction 

Beast position 

Beast X position 

Beast Y position 

Sound flag 

Indicates a hit 

Current level 

Holds the maze 

CHR$ code for man 

Number of men 

Beasts old position 

Character under beast 

Mans old screen position 

Mans position on screen 

Mans X position 

Mans Y position 

Where to PEEK for a random number 

Start of video RAM 



Cursor off and set margins 

Jump to initialization 

Move man 

Move beastie 

Put man on board 

Hit something 

Update condition 

Hit the beastie 

All the men are gone 

End of the game 

Put maze level into M$ 

Convert maze to screen format 

Put the asterisks into maze 

Draw the maze 

Data for maze one 

Data for maze two 

Data for maze three 

Data for maze four 

Initialize the subroutines 
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Listing 



1 REM NOTE :LAST LINE IN EACH DATA BLOCK IS 1 

CHARACTER SHORTER THAN THE REST 

10 POKE 752.1: POKE 82,0: POKE S3 , 39 

20 SOTO 20000 

1 00 T I ME=T I ME-*- 1 : PLACE=SCREEN+POSH+POSV*40 : OLDPLACE=PLACE : PO 

KE 77.0 
110 Z=STICK<0> : IF FLABS THEN SOUND , FLAGS , 10 , 12: FLABS=FLAB 

S-5: IF FLAGS< 20 THEN FLAGS=0 
120 IF FLABS=0 THEN SOUND 0,255,10,12 
130 ON Z GOTO 1000,1000,1000,1000,190.180,140,1000,200,210, 

150, 1000, 160, 170, 1000 

140 IF PEEK(PLACE+1><>128 THEN POSH=PQSH+l 

141 SOTO 1000 

150 IF PEEK(PLACE-1 ><>128 THEN POSH=POSH-l 

151 GOTO 1000 

160 IF F'EEK(PLACE+40)Oi28 THEN POSV=POSV+l 

161 GOTO 1000 

170 IF PEEK(PLACE-40><>128 THEN POSV=PQSV- 1 

171 SOTO 1000 

1B0 IF PEEK(PLACE-39X>12S THEN POSV=POSV-l : POSH=POSH+l : SOT 

1000 

181 IF PEEK(PLACE-40)O12B THEN POSV=POSV- 1 : SOTO 1000 

1 82 IF PEEK < PLACE+ 1 ) < > 1 28 THEN POSH=POSH+ 1 

183 BOTO 1000 

190 IF PEEK(PLACE+41X>128 THEN POSV=POSV+ 1 : POSH=POSH+l : GOT 
O 1000 

191 IF PEEK (PLACE+40)<;> 128 THEN POSV=POSV+l : BOTO 1000 

192 IF PEEK (PLACE+1JO 128 THEN P03h=P0SH+l 

193 GOTO 1000 

200 IF PEEKCPLACE+39X >12B THEN POSV=POSV+l : POSH=POSH- 1 : EOT 
O 1000 

201 IF PEEK(PLACE-1X>12S THEN POSH=POSH-l : SOTO 1000 

202 IF PEEK <PLACE+40><> 128 THEN POSV=POSV+l : BOTO 1000 

203 BOTO 1000 

210 IF PEEK(PLACE-41X>128 THEN POSH=POSH-l : POSV=POSV- 1 : EOT 
1000 

211 IF PEEK(PLACE-1X>128 THEN POSH=POSH-l : GOTO 1000 

212 IF PEEKCPLACE-40)<>128 THEN POSV=POSV'-l : SOTO 1000 



Move beastie 



1000 T=BPOS-SCREEN 

1210 BY=INT(T/40) : BX=T-40*BY 

1220 OLDB=BP03 

1230 IF ABS(BDIR)=1 THEN BOTO 1270 

1240 T=SBN(POSH-BX) : IF T AND PEEK (BPOS+T) <> 128 AND PEEK (RAND 

) >220 THEN 13B0 

1250 IF T AND PEEK (BPOS+T) <>12B THEN BDIR=T:SOTO 1450 
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126E 
1270 

12S0 
1290 
1300 
1310 
1320 
1 330 
1340 
1350 
1 360 
1370 
1380 
1 390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 



T AND PEEK. <BP0S+T)O12S AND PEEK<R 



28 THEN BDIR-T: 
THEN SOTO 1450 



SOTO 1450 



GOTO 1290 

T=40*SGN(POSV-BY> : IF 

AND) >220 THEN 1380 

IF T AND PEEK < BPOS+ T ) < > 1 : 

IF PEEK (BPOB+BDIRX ; 128 

T=PEEK(RAND) >127 

IF T THEN SOTO 1340 

T=SSNCPOSH-BX> 

IF T AND PEEK CBPOS+T)<> 128 THEN BDIR=T:SOTO 1450 

T=40*SGN (POSV-BY) 

IF T AND PEEMBPOS+T)- 

T=SBN(HPOS-BX) 

IF T AND PEEK(BPOS+T)< 

T=INT(RND(0i*4) 



>128 THEN BDIR=T:GOTO 1450 
; 126 THEN BDIR=T:GOTO 1450 



ON 

IF 

IF 

IF 

IF 

SOTO 

BPOS: 



T GOTO 1410,1420,1430 
PEEK ( BPOS-40 ) < > 1 28 THEN 
PEEK C BPOS+40 ) <> 1 28 THEN 



PEEKiBPOS-l)< 
PEEK(BPOS+l)< 

1400 

BPOS+BDIR 



--128 
>128 



THEN 
THEN 



BD I R=-40 : GOTO 1 450 
BDIR=40:GOTO 1450 
BDIR=-l:GOTO 1450 
BDIR=l:GOTO 1450 



POKE OLDB.OLDCHR 

OLDCHR=PEEK(BPOS> 

POKE BPOS,THEM 

H I TFLAG= ( OLDCHR-MAN ) 

IF HITFLAG THEN 3100 



Put man on board 



2000 POKE OLDPLACE.0:PLACE = SCREEN+POSH+priSV*40 

2010 T=FEEK (PLACE) : IF T THEN 3000 

2020 POKE PLACE, MAN 

2030 GOTO 100 

3000 IF TO 10 THEN 3100 

3010 T0TAL=TOTAL-l:T=--PLACE-3CREEN+l :M*<T,T>=" " 

3020 FLAGS=60:IF TOTAL THEN 100 

3030 FOR T=l TO 30:? :NEXT T 

3040 IF LEVEL=3 THEN 4000 

3050 GRAPHICS 2+16 

3060 LEVEL=LEVEL+1: POSITION 3,5:? #6s "LEVEL ^" ; LEVEL+1 : POBITI 

ON 3,Bs :' #6 : NUMMEN; " ..REMAINING" 

3070 FOR T=100 TO STEP -1: SOUND , T , 12 , 15: NEXT T: SOUND "•' 

55,10,12 

3080 SOTO 20E70 
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Hit the beastie 



3100 X=POSH+POSV*40+SCREEN 

3110 FOR T = 255 TO STEP -1 

3120 POKE X,T: SOUND 0,T,10,12 

3130 NEXT T 

3140 NUMMEN=NUMMEN-1 

3150 IF NOT NUMMEN THEN 3500 

3160 GRAPHICS 2+16:? #6; NUMMEN; " ^ ^REMAINING" 

3170 P0SH=25 : P0SV=9 

3180 T1=0:T2=0:FOR T=0 TO 255:30UND 0,T,10,1I 

12: SOUND 2,T2, 10, 12 

3190 T1=T1+2:IF Tl>255 THEN T1=0 

3200 T2=T2+3:IF T2>255 THEN T2=0 

3210 OLDS=T:NEXT T 

3220 GOSUB 9600 

3230 GOTO 100 



: SOUND 1 , T 1 , 1 , 



All the men are gone 



5500 GRAPHICS 2+16: POSITION 2,5:? #6; " ALL ^MEN ^DEAD ' ' " : FOR T = 

1 TO 255 STEP 4 

5510 SOUND 1,0,0,0:SOUND 2,B,0,E:FOR Tl=l TO 253 STEP T 

5520 SOUND 0,T1 ,10,12 

5530 NEXT Tl 

5540 NEXT T 

5550 SOUND 0,0,0,0 

5580 GOTO 4020 



End of the gar 



4000 



" ALL ^LEVELS ^COMPLETED ! 



4010 

4020 

4030 INPUT X* 

4040 RUN 



' SCORE ^: ";TIME 

'PRESS .»< RETURN > ^FOR ^ANOTHER ^SAME' 



Put maze level into M$ 



9000 RESTORE I0000+LEVEL*50+1 

9010 P0SH=25:PQSV=9 

9100 FOR T=0 TO 23 

9200 READ T* 
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9300 M*(T*40+1 ,T*40+40)=T* 

9310 NEXT T 

9320 GOSUB 9500:BOSUB 9600 

9330 RETURN 



Convert maze to screen format 



9500 FOR T=l TO LEN(M*> 

9510 IF M*<T,T>="*" THEN M* (T , T) =CHR* < 160) 

9520 NEXT T 



Put the asterisks into maze 



9530 TOTAL=30 

9540 FOR T=l TO TOTAL 

9560 Z=INT<RND(0>*959+ii 

9570 M*<Z,Z)="*" 

9580 NEXT T 

9590 RETURN 



IF M* < Z . Z ) < > " ^ " THEN 9560 



Draw the maze 



9600 FOR T=l TO 20:? :NEXT T 

9610 ? M*; 

9620 POKE SCREEN+959, 12S 

9640 BP0S=SCREEN+8B2: OLDCHR=PEEK (BROS) 

9670 BDIR-1 

9690 RETURN 



Data for maze one 



10001 


DATA 


***#********#***«-*****************,#*♦*## 


1 0002 


DATA 


* 


* 


* 














* 


10003 


DATA 


* 


* * 


* * 


****** ********* ****** * * ** 


1 0004 


DATA 


* 


* * 


* * 




* 


* 








* * 


10005 


DATA 


* 


* 


* 


* * 


* 


* 


***** ***** 


** * * * 


10006 


DATA 


* 


*** 


*#* 


******* 


* 


* 




* 


* * 


10007 


DATA 


* 






* 




* 


* 


*** *** 


* 


* * * ** 


10008 


DATA 


*** ***** 


* ***** 


* 


* 


* * 


* 


* * * 


10009 


DATA 


* 






* 




* 


* 


* *** * 


* 


**** * 


10010 


DATA 


* 


*** 


*** 


*** 


*** 


* 




* * * 




* * * 


10011 


DATA 


* 


# 


* 




* 


* 


* 


* *** * 


* 


* * * ** 


10012 


DATA 


* 


* * 


* * 


*** 


* *** 


* 


* * 


* 


* * 


10013 


DATA 


* 


* # 


# * 




* 




* 


******* 


* 


** *** * 


10014 


DATA 


* 


* 


+ 


*** 


* *** 


* 




* 


* * * 
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13015 DATA * *** *** 

10016 DATA * ******* 

10E 17 DATA ** *** * * * 

10018 DATA * * * * * 



10019 DATA 

10020 DATA 

10021 DATA 

10022 DATA 

10023 DATA 



***** ***** * ** 
** * * * * **** *** 
* * * * * * 

* * * * * * ************* * * *** 
******** ***** ***** 

* * * * ****** ***** * * 

* * *** ******* ** * * * * * 

* *** * * ***************** *** * 

* ** * * * 



10024 DATA *************************************** 



Data for maze two 



10051 
10052 
10053 
10054 
10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10064 
10065 
10066 
10067 
10068 
10069 
10070 
10071 
10072 
10073 
10074 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



**************************************** 
* * * * * * 



* * * * 



* * * * 
****** 



***** * 

* * 

* ***** 



******** ****** * 
******** * 

********* ******* 



* * * * *** * * 



***** * ****** * 



*** * * 



* * * * 

* * * 
****** 

* * * * * 
****** 



******* 
*** ****** 



* ***** 



******** * 
* 
********** 
* * * 
*** * ** * 



* **** ** 



* * 



* * 
******* 



* ***** * 



* ***** 



****** **** *** *** *************** * * 

* * ******** 

* ************* * *** * ** * * * * 

* * ***** ***** 
********* ********* * ****** * * * * 

* * * *** * 
*************************************** 



Data for maze three 



10101 DATA **************************************** 

10102 DATA * * * * * * * 

10103 DATA * * ***** *** * *** * * ** * * * 

10104 DATA * ** * * ***** * * * * * ********** * 

10105 DATA * * ****** * 

10106 DATA ***** **** **** **** **** * ** ******* 

10107 DATA * ****** * 

10108 DATA * *** *** *** *** *** *** ******* * 

10109 DATA * ******** * 

10110 DATA *** ******** *** * ******* 

10111 DATA * * **** ***** * 

10112 DATA ************ *** * 
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10113 DATA * ******** * * 

10114 DATA ************ * * ******* 

10115 DATA * ****** 

10116 DATA ************* ** *** *** * 

10117 DATA * ****** 
101 IB DATA *** ** ** ** ** ** ** *** * * * * *** * 

10119 DATA * ******* 

10120 DATA * ** ** ** ** ** ** ** ** * * * * ***** 

10121 DATA * *** * * * * * 

10122 DATA * *** *** *** *** *** ** * * * ***** * 

10123 DATA * * * * 

10124 DATA *************************************** 



Data for maze four 



10151 DATA **************************************** 

10152 DATA **** * ***** 

10153 DATA ****************** ** 

10154 DATA ************** * *** * 

10155 DATA * * * * * * ********* ** * 

10156 DATA ** **** ** *** ********** * * * 

* * * * * ***** * * ** 

**** *** *** * ** ***** * * 
* * * **** * * *** ** 

* ** ********* * * * * 

* * * * * *********** * * 

* * ** *** * * * * ******* 
*** * ** ** ***** * * 

* * * **** * *** * * * * * * * 
***** *** * * 
**** ** ********* 

* * * ** ** ****** ** * 
*** ** ****** * *** 

* * ** *********** * 
* *** ***** **** 

**■* ********** *** 
************* * 
***** * * * 
10174 DATA *************************************** 



10157 


DATA 


* 




* 


1 


1015B 


DATA 


* 


* 


* 


**■■> 


10159 


DATA 


* 


* 


* 




10160 


DATA 


* 


* 


* 


* -i 


10161 


DATA 


* 


* 


* 


* i 


10162 


DATA 


* 


* 


* 


* 1 


10163 


DATA 


* 


* 


* 


i 


10164 


DATA 


* 




* 


* 1 


10165 


DATA 


* 


* 


* 


* H 


10166 


DATA 


* 




* 


* H 


10167 


DATA 


*** 


* 


* 


10168 


DATA 


* 








10169 


DATA 


*** 


* 


* 


10170 


DATA 


* 








10171 


DATA 


*** 


** * 


10172 


DATA 


* 


* 


* 


* 


10173 


DATA 


* 




* 


** 



Initialize the subroutines 



20000 DIM M*(960) ,T*<40> ,X*<9; 

20020 LEVEL=0:TIME=0:SCREEN=40000: QLDS=0:RAND=53770 

20030 GRAPHICS 2+16 

20040 POSITION 5, 10 

20050 ? #6; "JUST ^.A^TICK. " 

20060 NUMMEN=3 

20070 BOSUB 9000 

20080 MAN=123 

20090 THEM=88 

20110 BOTO 100 
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ChexSum Tables 



10 


= 


1118 


20 


= 


114 


100 


= 


2246 


110 


= 


2530 


120 


= 


770 


130 


= 


2416 


140 


= 


1164 


141 


= 


127 


150 


= 


1166 


151 


= 


127 


160 


= 


1229 


161 


= 


127 


170 


= 


1231 


171 


= 


127 


180 


= 


1980 


181 


= 


1406 


182 


= 


1164 


183 


= 


127 


190 


= 


1986 


191 


= 


1404 


192 


= 


1164 


193 


= 


127 


200 


= 


1979 


201 


= 


1341 


202 


= 


1404 


203 


= 


127 


210 


= 


1989 


211 


= 


1341 


212 


= 


1406 


1000 


= 


576 


1210 


= 


1561 


1220 


= 


412 


1230 


= 


745 


1240 


= 


2417 


1250 


= 


1528 


1260 


= 


273 


1270 


= 


2603 


12B0 


= 


1528 


1290 


= 


926 


1 300 


= 


729 


1310 


= 


380 


1320 


= 


759 


1 330 


= 


1 528 


1340 


= 


937 


1 350 


= 


1528 


1360 


= 


770 


1370 


= 


1528 


13BE 


= 


744 


1390 


= 


639 


1400 


= 


1442 


1410 


= 


1385 


1420 


= 


1316 


1430 


= 


1259 


1440 


= 


131 


1450 


= 


594 



1460 


= 


369 


1470 


= 


588 


1480 


= 


367 


1490 


= 


700 


1500 


= 


337 


2000 


= 


1184 


2010 


= 


905 


2020 


= 


362 


2030 


= 


112 


3000 


= 


443 


3010 


= 


2014 


3020 


= 


730 


3030 


= 


720 


3040 


= 


470 


3050 


= 


282 


3060 


= 


3347 


3070 


= 


1836 


3080 


= 


226 


3100 


= 


948 


3110 


= 


574 


3120 


= 


864 


3130 


= 


166 


3140 


= 


552 


3150 


= 


385 


3160 


= 


1457 


3170 


= 


748 


31 SB 


= 


2952 


3190 


= 


1310 


3200 


= 


1315 


3210 


= 


594 


3220 


= 


263 


32.30 


= 


1 12 


3500 


= 


2378 


3510 


= 


1318 


3520 


= 


489 


3530 


= 


190 


3540 


= 


166 


3550 


= 


182 


3580 


= 


207 


4000 


= 


1540 


4010 


= 


791 


4020 


= 


245 1 


4030 


= 


186 


4040 


= 


59 


9000 


= 


641 


9010 


= 


748 


9100 


= 


362 


9200 


= 


219 


9300 


= 


1520 


9310 


= 


166 


9320 


= 


546 


9330 


= 


58 


9500 


= 


637 


9510 


= 


1810 


9520 


= 


166 



9530 


= 


378 


9540 


= 


445 


9560 


= 


2092 


9570 


= 


778 


9580 


= 


166 


9590 


= 


58 


9600 


= 


704 


9610 


= 


238 


9620 


= 


543 


9640 


= 


1269 


9670 


= 


348 


9690 


= 


58 


10001 


= 


1836 


10002 


= 


1476 


10003 


= 


1736 


10004 


= 


1526 


10005 


= 


1656 


10006 


= 


1626 


10007 


= 


1596 


10008 


= 


1656 


10009 


= 


1586 


10010 


= 


1636 


10011 


= 


1606 


10012 


= 


1616 


10013 


= 


1646 


10014 


= 


1586 


1001.5 


= 


1 636 


10016 


= 


1666 


10017 


= 


1576 


10018 


= 


1676 


10019 


= 


1616 


10020 


= 


1606 


10021 


= 


1 626 


10022 


= 


1706 


10023 


= 


1496 


10024 


= 


1794 


10051 


= 


1836 


10052 


= 


1496 


10053 


= 


1686 


? 0054 


= 


1586 


10055 


= 


1696 


10056 


= 


1566 


10057 


= 


1696 


10058 


= 


1536 


10059 


= 


1686 


1 0060 


= 


1576 


10061 


= 


1676 


10062 


=■ 


1596 


10063 


= 


1646 


10064 


= 


1626 


10065 


= 


1616 


10066 


= 


1666 


1 0067 


= 


1516 


10068 


= 


1766 


10069 


= 


1536 
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10070 


= 


16B6 


10071 


= 


1556 


10072 


= 


1726 


10073 


= 


1506 


10074 


= 


1794 


10101 


= 


1836 


10102 


= 


1506 


10103 


= 


1646 


10104 


= 


1696 


10105 


= 


1526 


10106 


= 


1746 


10107 


= 


1516 


1010B 


= 


1706 


10109 


= 


1536 


10110 


= 


1656 


10111 


= 


1556 


10112 


= 


1596 


10113 


= 


1546 


10114 


= 


1646 


10115 


5= 


1506 


10116 


= 


1656 


10117 


= 


1506 


10118 


= 


1696 



10119 


= 


1516 


10120 


= 


1696 


10121 


= 


1526 


10122 


= 


1706 


10123 


= 


1476 


10124 


E 


1794 


10151 


= 


1836 


10152 


= 


1536 


10153 


= 


1636 


10154 


= 


1626 


10155 


= 


1616 


10156 


= 


1676 


10157 


a 


1606 


10158 


= 


1666 


10159 


= 


1606 


10160 


= 


1636 


10161 


= 


1656 


10162 


= 


1656 


10163 


= 


1616 


10164 


= 


1646 


10165 


= 


1576 


10166 


= 


1616 


.10167 


= 


1646 



10168 


= 


1596 


10169 


= 


1646 


10170 


= 


1576 


10171 


= 


1656 


10172 


= 


1616 


10173 


= 


1556 


1E174 


= 


1794 


20000 


= 


1280 


20020 


= 


1895 


20030 


= 


282 


20040 


= 


262 


20050 


= 


1022 


20060 


= 


359 


20070 


= 


257 


20080 


= 


390 


20090 


= 


487 


20110 


= 


112 



TOTAL = 275698 
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WORMA 




CLASSIFICATION: Skill 

You must move your worm around the screen for as long as 
possible. When a number appears, run over it and the tail of 
your worm will grow longer. The joystick controls the 
direction of the worms head and pressing the fire button sends 
the worm in that direction. If your head touches your body 
then game is over. The objective of this game is to live as 
long as possible and make the worm grow to the maximium length. 

PROGRAMMING SUGGESTIONS 

Increase the speed that the worm moves around the board and put 
fatal obstacles in its path. 
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Program 
Variables 

AMX() 

AMY() 

BODY 

CHANGE 

DROP 

FRONT 

HEAD 

POS 

POST 

SCREEN 

TAIL 

TYPE 

X() 

Y() 

Program 
Structure 

10 - 

100 - 200 

5000 - 5000 

5200 - 5320 

6000 - 6050 

10000 - 10070 

20000 - 20170 



Amounts to move X 
Amounts to move Y 
Screen code for body 
Flag position change 
Number of times to grow 
Screen codes for arrows 
Position of head in array 
Screen position of head 
Used to put number on screen 
Start of video ram 
Position of tail in array 
Direction indicater 
X coordinates of worm 
Y coordinates of worm 



Jump initialize 

Main loop 

Joystick routine 

Move routine 

Random number to screen 

End of game 

Initialize 
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Listing 



10 POKE 752,2:? : 60T0 20000 

100 POKE 77,0:ZQ=X(HEAD>+40*Y(HEAD)+SCREEN:GOSUB 5000 

110 POS=X (HEAD) + 40*Y (HEAD) +SCREEN 

120 B=PEEK(POS) : IF Q=BODY THEN 10000 

130 IF Q>16 AND Q<26 THEN Q=Q-16: DROF-DROP+Q: SCORE=SCORE+Q: 

TEST=0 

140 IF CHANBE AND NOT DROP THEN TAIL=TAIL-1 : IF TAIL<0 THEN 

TAIL =970 

150 IF CHANBE AND DROP THEN DRQP=DROP-l 

160 POKE X (TAIL) +40*Y (TAIL) +SCREEN.0 

170 2=HEAD+1: IF Z>970 THEN Z=0 

180 IF HEADOTAIL THEN POKE X ( Z > +40*Y ( Z > +SCREEN , BODY 

181 IF HEAD=TAIL THEN POKE ZQ,0 

190 POKE X (HEAD) +40* Y( HEAD) +SCREEN , FRONT (TYPE) 

200 IF NOT TEST THEN GOSUB 6000 

210 POSITION 10,23:? "SCORE ^: "; SCORE; " ^ „." ; 

220 GOTO 100 



Joystick routine 



5000 
5010 
5020 

5030 
5040 
5050 
5060 



S=STICK(0) 

IF S=15 THEN 5200 

ON S GOTO 5200, 5200, 5200, S 

5200 , 5060 , 5200 , 5050 , 5030 , 1 



200, 
200 



200 , 5200 , 5040 , 5200 , 5200 , 



TYPE=0:GOTO 
TYPE=3:G0T0 
TYPE=l:GOTO 
TYPE=2:GOTO 



1200 
1200 
1200 
1200 



Move routine 



5200 


5210 


5220 


5230 


5240 


5250 


5260 


5270 


5280 


5290 


5300 


5310 


5320 



CHANGE=0 

IF STRIG(0) THEN FLAG=0: REPT=0: RETURN 

IF REPT THEN REPT=REPT-1 : RETURN 

X=X(HEAD) : Y=Y<HEAD) 

X1=AMX(TYPE) : Y1=AMY (TYPE) 

X1 = X1+X:IF XK0 OR X 1 >39 THEN RETURN 

Y1=Y1+Y:IF YK0 OR Yl>22 THEM RETURN 

CHANGE=1 

HEAD=HEAD-1 

IF HEAD< THEN HEAD=970 

X (HEAD) =X1:Y (HEAD) =Y1 

IF NOT FLAG THEN REPT=6: FLAG=1 

RETURN 



156 



Random number to screen 



6000 Z=INT(RND<0)*9>+17: IF TAIL=HEAD AND Z = 17 THEN 6000 

60 1 POST= I NT ( RND ( > *920 ) +SCREEN 

6020 IF PEEK (POST) THEN 6010 

6030 TEST=1 

6040 POKE POST,Z 

6050 RETURN 



End of game 



10000 GRAPHICS 2+16 

10010 ? #6; "SCORE ^: "; SCORE 

10020 ? #6 

10030 ? #6 

10040 ? #6; "PRESS _<RETURN>" 

10050 POKE 754,255 

10060 IF PEEK (754)012 THEN 10060 

10070 CLR :GOTO 10 



Initialize 



20000 B0DY=84 

20010 DIM FRONT <3> 

20020 FRONT (0> =92: FRONT ( 1 ) =93: FRONT (2) =94: FRONT (3) =9^ 

20040 DIM AMX (3) ,AMY(3) 

20050 AMX (0)=0: AMY(0)=-1 

20060 AMX (1)=0: AMY(1)=1 

20070 AMX (2) =-1: AMY (2) =0 

20080 AMX (3) =1: AMY (3) =0 

20090 TYPE=0 

20100 SCORE=0 

20110 TEST=0 

20120 SCREEN=40000 

20130 DIM X (970) ,Y(970) 

20140 X (0)=19: Y(0)=12 

20150 HEAD=0: TAIL=0: DROF-0: REPEAT=0: TYPE=0 

20160 7 CHR*(125) 

20170 GOTO 100 
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ChexSum Tables 



10 


= 


549 


100 


= 


1972 


110 


= 


1406 


120 


= 


1056 


130 


= 


2845 


140 


= 


1 744 


150 


= 


916 


160 


= 


1249 


170 


= 


1292 


180 


= 


1763 


181 


= 


596 


190 


= 


1616 


200 


= 


447 


210 


= 


1174 


220 


= 


112 


5000 


= 


471 


5010 


= 


502 


5020 


= 


3174 


5030 


= 


502 


5040 


= 


569 


5050 


= 


567 


5060 


= 


568 


5200 


= 


282 



5210 


= 


976 


5220 


= 


S35 


5230 


= 


1324 


5240 


= 


1397 


525E 


= 


1355 


5260 


= 


1 34 1 


5270 


= 


347 


5280 


= 


514 


5290 


= 


704 


5300 


== 


1329 


53 1 


= 


9B9 


532B 


= 


58 


e>030 


= 


1837 


60 1 


= 


985 


6020 


= 


5B0 


6030 


= 


346 


604B 


= 


38 J 


6050 


= 


58 


10000 


= 


282 


10010 


= 


853 


10020 


= 


174 


10030 


=. 


174 


10040 


= 


1255 



10050 


= 


407 


10060 


= 


701 


10070 


= 


180 


20000 


= 


474 


20010 


= 


374 


20020 


= 


2832 


20040 


= 


742 


20050 


= 


979 


20060 


= 


1054 


20070 


= 


1111 


20080 


= 


1058 


20090 


= 


286 


20100 


= 


230 


20110 


= 


281 


20120 


= 


345 


20130 


= 


938 


20140 


= 


988 


20150 


= 


1590 


20160 


= 


343 


20170 


= 


112 


TOTAL 


__ 


58541 
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PATROL CAR 




CLASSIFICATION: Arcade 

Move your little patrol car along the ground and shoot down the 
hostile invaders and their missiles. Use the joystick to move 
left and right and the fire button to launch missiles. The 
aliens can drop nasties on you so beware!!!! 

PROGRAMMING SUGGESTIONS 

Add obstacles to your patrol cars path to make hitting the 
alien more difficult. Make it possible for several invaders to 
attack you at the same time. 
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Program 




Variables 


XI 




Yl 




A 




X3 




Y3 




X2 




Y2 




X4 




Y4 




Program 




Structure 


5 - 


85 


100 - 


130 


1060 - 


1560 


2000 - 


2210 


3000 - 


3010 


4000 - 


4499 


5000 - 


5999 


7000 - 


7999 



X position of patrol car 

Y position of patrol car 
Joystick variable 

X position of alien 

Y position of alien 

X position of his missile 

Y position of his missile 
X position of your missile 

Y position of your missile 



Set up players and draw screen 

Data for shapes 

Main loop 

Move the patrol car 

Move the alien 

Move his missile 

Move your missile 

Collision checking 
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Listing 



6 

7 

10 

20 

30 

40 

50 

60 

70 

80 

85 

100 

110 

120 

130 

200 

210 

220 

230 

500 

505 

1030 

1060 

1500 

1510 

1520 

1530 

1545 

1550 

1560 

2000 

2010 

2020 

2030 

2040 

2050 

2100 

2105 

2110 

2200 

2205 

2210 

3000 

3005 

3010 

4000 

4005 

4010 

4020 

4025 

4030 

4100 



FOR 1=33792 TO 33792+1023: POKE 1,0: NEXT I 

FOR 1=30720 TO 30796: READ A: POKE I.A:NEXT 

FOR 1=28672 TO 29050: READ A: POKE I, A: NEXT 

POKE 106,128 

PM=PEEK (106): PMBASE=PM*256 

GRAPHICS 1 

POKE 559,62 

POKE 53277,3 

POKE 54279, PM 

POKE 53256,2 

POKE 704,77: POKE 705,7 

POKE 707,77 

DATA 0,0, 112, 136 



:POKE 706,77 



, 13 







255 ,1 02, 1 02, 0,0, 0,0, 0,0, 0,0, 
108,0,0,0,0,0,0,0,0,0,0,0,0, 



226 , 255 , 255 ,124,0,0,0,0,0,0, 
108, 0,0, 0,0, 0,0, 0,0, 0,0,0 



DATA 16,56,56,56,124 

0,0 

DATA 128,192,248,228 

DATA 16,56,56,56,124 

POKE 53256 , 1 

POKE 53257,2 

POKE 53258 , 1 

POKE 53259,2 

X3=0:BOSUB 4500: Y3=Y 

Xl=50: Yl=153 

A=USR ( 2B672 , X 1 , Y 1 , X2 , Y2 , X 3 , Y3 , X4 , Y4 ) 

POSITION 0,0: PRINT #6: "HITS: " ; HI ; " ^BANGS: " ; BA-, " ^ , 

GOSUB 2000: REM PATROL CAR 

SOBUB 3000: REM ALIEN 

SOSUB 4000: REM HIS MISSILE 

GOSUB 5000: REM YOUR MISSILE 

A=USR ( 1 12*256 , X 1 , Y 1 , X2 , Y2 , X3 , Y3 , X4 , Y4 ) 

GOSUB 7000: REM CHECK 

SOTO 1060 

REM 

POKE 53278,0: A=STICK<1) : IF A=15 THEN RETURN 

IF A=ll THEN GOSUB 2100 

IF A=7 THEN GOSUB 2200 

IF STRIG(1)=0 THEN 5500: RETURN 

RETURN 

REM 

IF Xl<3 THEN RETURN 

X1=X 1-4: RETURN 
REM 

IF Xl>140 THEN RETURN 

X1=X 1+4: RETURN 

REM 

IF X3M63 THEN GOSUB 4500: Y3=Y : X3=B: RETURN 

X3=X3+5: RETURN 

REM 

IF IT1=0 THEN GOSUB 4100 

IF Y2J155 THEN IT 1=0: HI=HI + 1 : Y2=2.20: RETURN 

Y2=Y2+4 

IF X2>140 THEN RETURN 

X2=X2+4: RETURN 

X2=X3 : Y2=Y3+8 : I T 1 = 1 : RETURN 



0,0,0, 

0,0,0, 
0,0,0 
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4499 RETURN 

4-0- Y-INT(RND<1)*120):IF Y<8 THEN 4500 

4_j0b RETURN 

5000 REM 

5003 IF IT2=0 THEN RETURN 

™ IF Y4<S THEN IT2-0:Y4=220: RETURN 

5010 Y4=Y4-4: RETURN 

5500 IF IT2=1 THEN RETURN 

5505 X4=Xl:Y4=Yl-8: I T2=l: RETURN 

5999 RETURN 

7000 REM 

70^ IF pll^l^ll' 1 ™ EN BA=BA-i: IT1 =0:Y2=22 

70^:0 IF PEEK (5^263) =2 THEN BA=BA+1 

7030 IF PEEK (53263) =4 THEN BA=BA+1 

7999 RETURN 

9000 K SSr ,.l S , 1M , IM , WI . M , 11 3, W , 1M , 

9005 ^.^i^i-:^^;^' 104 ' 104 ' 141 ' 88 ' 113 ' 1 -' 1 -' 

9010 U3? 1 49!^;^:^ 96 ' 120 ' 32 ' 8 ' 113 ' 1 -'-' 1 --^-9,53, 

9015 Sl 2 -;^ ; ^I^-^-^^-^,-, 176 , 157 , 5 3, 113 

9020 S?I2 B :t?:?;^:t^:^ 149 - 176 ' 232 ' 136 ' 2BB '^- 32 '"-.» 
9025 ?il9^l:^:;^: 32 ^?t7 208 ' 247 ' 160 ' 14 ' i62 ' E ' 1 -' 81 ^ 13 

9030 SJt 7 ;^0i; 2 ;^'0 4 ' 162 ' ' 181 ' 176 ' 157 ' 31 '- 3 '^^- 

9035 ^s:iii:i^:^ 7 :-' 232 ' i -'- 8 '-'32, 17 0, 11 2, 16 0, 

9045 ^? 1 ^;i^:^:^:-' 1 -' 32 '-'- i '-2, 16 B, 166 , 1 e5. 1 . 

9055 DATA 180 , 238 , 109 , 1 1 3 , 1 72 , 1 16 , 1 13 , 145 , 178 , 238 , 1 16 , 1 1 3 , 20 
■--, l6,io7, 165, 18 j, 133, 182, 165 

9060 ??j?4i!ti:?? B :?^; i t^ i84 ' i97 ' iB9 ' 2a8 ' iB2 -' 6 ' 173 ."^ 
9065 ^^ BB :^:^:it B :t; :i4 ' i62 ' B ' i8i ' i76 ' is7 '» 7 ." 3 .« 

9070 ™,^ 2 7 !8 189 ' 117 ' 113 ' 149 ' I76 ' 232 ' 13& ' 208 ' 2 ^' % '^^3 

!SI™ DATA 7 .8,11,4,2,4, 1,4, 8, 0,208, 0,132, 0,120 8 
9080 DATA 16, 0,0, 1,208, 0,133, 20, 120, 0,0,0,^0 ^; ^; B ^ 0850 

9085 DATA 134,40,120,0,0,0,8,0,16,0,0,3,208,0,135,60,120,0,0 
9090 DATA B,B,a,0,B,0,0,79,0,0,B,0, , , , a , 141)3)ai20B 
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ChexSum Tables 



1 42 1 



6 


= 


1353 


7 


= 


1627 


IB 


= 


277 


20 


= 


1 1 24 


30 


= 


144 


40 


= 


420 


50 


= 


406 


60 


= 


473 


70 


= 


372 


BE 


= 


1 1 69 


85 


= 


361 


100 


= 


2569 


110 


= 


2668 


120 


= 


2534 


130 


= 


2116 


200 


= 


371 


210 


= 


373 


220 


= 


373 


230 


= 


375 


500 


=' 


S89 


505 


= 


859 


1030 


= 


2315 


1060 


= 


1692 


1500 


= 


1036 


1510 


= 


696 


1520 


= 


1151 



1 530 


= 


1275 


1545 


= 


2286 


1550 


= 


749 


1560 


= 


223 


2010 


= 


1338 


2020 


= 


463 


2B30 


= 


454 


2040 


= 


624 


2050 


= 


58 


2105 


= 


358 


2110 


= 


587 


22E5 


= 


422 


2210 


= 


586 


3005 


= 


1412 


3010 


= 


581 


4005 


= 


428 


4010 


= 


1768 


4020 


= 


516 


4025 


= 


424 


4030 


= 


590 


4100 


= 


1396 


4499 


= 


58 


4500 


= 


1341 


4505 


= 


58 


5003 


= 


302 


5005 


= 


1107 


5E IS 


= 


597 



5500 


= 


367 


5505 


= 


1408 


5999 


= 


58 


7E10 


= 


1869 


7020 


= 


1113 


7030 


= 


1115 


7999 


= 


58 


9000 


= 


3800 


9005 


= 


3900 


9010 


= 


3548 


9015 


= 


3747 


9E2E 


= 


3711 


9025 


= 


3824 


9030 


= 


3638 


9035 


= 


3778 


9B40 


= 


3730 


9045 


= 


37 1 9 


9050 


= 


3845 


9055 


= 


4013 


9060 


= 


3852 


9065 


= 


3760 


9070 


== 


3 1 63 


9075 


-- 


2355 


9080 


= 


2537 


9085 


= 


2637 


9090 


= 


2191 



TOTAL 



20901 
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ROBOTS 




CLASSIFICATION: Skill 

The objective of this game is to move your player round the 
screen without being destroyed by the robots. Each time you 
move, all the robots move toward you. You can destroy the 
robots by causing them to walk over mines which you must avoid 
yourself. Select a joystick at the start of the game 
destroy all the robots in the least number of moves. 

PROGRAMMING SUGGESTIONS 



Try to 



Increase the number of robots and mines on the scree 
obstacles on the screen to make moving more difficult. 



Place 
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Program 




Variables 




MO 


Number of moves 


SP 


Space character 


NR 


Number of robots 


PL 


Players character 


NM 


Number of mines 


JO 


Joystick port number 


SC 


Start of screen 


Program 




Structure 




120 - 180 


Main Loop 


1000 - 1099 


Initialization 


2000 - 2099 


Setup game, input joystick number 


3000 - 3030 


Deposit mines 


4000 - 4040 


Deposit robots 


5000 - 5030 


Move player 


6000 - 6020 


Move player right 


6100 - 6120 


Move player left 
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Listing 



10 

20 
21 
40 
60 
70 
80 
90 
100 



REM ROBOTS 

CLR 

POKE 752,255 

SC=40000 

BOSUB 1000: REM INITIALIZE VARAIABLE 

GOBUB 2000: REM DO INSTRUCTIONS 

SOSUB 3000: REM DEPOIST MINES 

BOSUB 4000: REM DEPOSIT DROIDS 

BOSUB 5000: REM DEPOSIT PLAYER 



Main Loop 



120 A=STICK<JO) :B=STRIS(JO> 

130 IF A=7 THEN BOSUB 6000 

140 IF A=ll THEN SOSUB 6100 

150 IF A=13 THEN BOSUB 6200 

160 IF A=14 THEN GOSUB 6300 

165 POSITION 0,0:PRINT SPC* ( 1 , 30) ; MO- 

170 IF B=0 THEN POKE PO.SP: BOSUB 5000 

180 BOSUB S000:SOTO 120 



IF A=15 AND B=l THEN i: 



Initialization 



1000 SETCOLOR 4,7,5:SETC0L0R 2 , 3 . 6: SETCOLOR 1 

1010 DIM TAB(10,2> ,E(10) ,SPC*<40> 

1020 NM=10:REM SET NUMBER OF MINES 

1025 PL=S4:REM SET PLAYER CHAR 

1030 R0B=67 

1035 MIN=10:REM SET MINE CHAR 

1040 NR=10:REM SET NUMBER OF ROBOTS 

1050 SP=0:REM SET SP CHARACTER 

1060 EX=17 

1070 FOR 1 = 1 TO 40: SPC*< I, I )="*■': NEXT I 

1099 RETURN 



5,15 
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2000 POKE 752,0 

2026 POKE 752,0 

2027 PRINT CHR* (125) ; "WHICH ^JOYSTICK ^PORT ^(0,1) ";: INPUT JO 

2028 IF J DOB AND J0O1 THEN 2027 

2029 PRINT CHR* ( 125) ;: POKE 752,128 

2030 FOR I=SC+1 TO SC+39: POKE 1+920 , 128: NEXT I 

2040 FOR I=SC+40 TO SC+920 STEP 40: POKE I, 128: POKE 1+39,128: 

NEXT I 

2050 POKE SC, 128 

2060 POKE SC+920, 128: POKE SC+920+39 , 128 

2070 POSITION 0,0:PRINT " ^ ^ ^ ^ ^ ^ ^ ^ +. » ^ ^ *. ^ ^ROBOTS ^ ^ ^ 

MOVES=0 ^^^^^^^^."', 
2099 RETURN 



Deposit mines 



3000 FOR 1 = 1 TO NM 

3007 RW=INT(RND(0)*23) : IF RW=0 THEN 3007 

3010 CW=INT(RND(0>*39) : IF CW=0 THEN 3010 

3020 PE=SC+ ( RW*40 > +CW 

3025 IF PEEK(PE)=MIN THEN 3007 

3030 POKE PE,MIN:NEXT I : RETURN 



Deposit robots 



4000 FOR 1=1 TO NR 

4007 E(I)=1 

4010 RW=INT(RND<0)*23> 

4015 CW= I NT ( RND ( ) *-39 ) 

4020 PE=SC+ ( RW*40 > +CW 

4025 IF PEEK(PE)=MIN THEN 4010 

4030 IF PEEK(PE)=ROB THEN 4010 

4035 TAB(I,1)=RW:TAB(I,2)=CW 

4040 POKE PE,ROB 

4050 NEXT I 

4060 RETURN 



IF RW=0 THEN 4010 
IF CW=0 THEN 4015 
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5000 

5010 

5015 

5020 

5025 

5030 

6000 

6005 

6006 

6007 

6010 

6012 

6020 

6100 

6105 

6106 

6107 

6110 

6112 

6120 

6200 

6205 

6206 

6207 

6210 

6212 

6220 

6300 

6305 

6306 

6307 

6310 

6312 

6320 

8000 

8020 

8030 

8040 

8050 

8060 

8500 

8505 

8520 

8525 

8530 

8535 

8540 

S545 

8550 
8560 
8570 
9000 
9005 

9010 
9012 
9013 
9015 



R=INT(RND(0)*23):IF R=0 THEN 5000 

C=INT(RND(0)*39):IF C=0 THEN 5010 

PO=SC+(R*40)+C 

IF PEEK(PO)=MIN THEN 5000 

IF PEEK(PO)=ROB THEN 5000 

M0=M0+5:P0KE PO, PL: RETURN 

REM MOVE PLAYER RIGHT 

IF C=38 THEN RETURN 

MO=MD+l 

C=C+1 : PE=SC+ <R*40> +C 

IF PEEK(PE)=ROB THEN BOSUB 9000: GOTO 11 

IF PEEK(PE)=MIN THEN GOSUB 9500: GOTO 

POKE PO,SP:POKE PE , PL: PO=PE: RETURN 

REM MOVE PLAYER LEFT 

IF C=l THEN RETURN 

MO=MO+l 

C=C-1 : PE=SC+ (R#40> +C 

IF PEEK(PE)=ROB THEN GOSUB 9000: GOTO 

IF PEEK(PE)=MIN THEN GOSUB 9500: GOTO 

POKE PO,SP:POKE PE , PL: PO=PE: RETURN 

REM MOVE PLAYER DOWN 

IF R=22 THEN RETURN 

MO=MO+l 

R=R+1 : PE=SC+ (R*40) +C 

IF PEEK(PE)=ROB THEN GOSUB 9000: GOTO 

IF PEEK(PE)=MIN THEN GOSUB 9500: GOTO 

POKE PO,SP:POKE PE , PL: PO=PE: RETURN 

REM MOVE PLAYER UP 

IF R=l THEN RETURN 

MO=MO+l 

R=R- 1 : PE=SC+ ( R*40 ) +C 

IF PEEK(PE/=ROB THEN GOSUB 9000: GOTO .„ 

IF PEEK(PE>=MIN THEN GOSUB 9500: GOTO 10 

POKE PO,SP:POKE PE , PL: PO=PE: RETURN 

REM MOVE ROBOTS 

CC=0:FOR 1=1 TO NR 

IF E(I)=1 THEN GOSUB 8500:CC=CC+1 

NEXT I 

IF CC=0 THEN GOSUB 9900: GOTO 10 

RETURN 

REM MOVE ONE ROBOT 

RW=TAB (1,1): CW=TAB (1,2): PE=SC+ (RW*40) +CW 

IF CW<C THEN TC=CW:TC=TC+1 

IF CW>C THEN TC=CW:TC=TC-1 

IF RW<R THEN TR=RW: TR-TR+1 

IF RW>R THEN TR=RW: TR-TR-1 

PN=SC+(TR*40)+TC 

IF PEEK(PN)=MIN THEN POKE PN,SP:POKE PE , SP: E ( I ) =0- RETUR 

N 

IF PEEK(PN)=ROB THEN RETURN 

IF PEEK(PN)=PL THEN GOSUB 9000: GOTO 10 

PRINT CHR* ( 125) ;: PRINT "YOU ^WERE ^CAPTURED BY THE 

^ROBOTS !!!!!" 

PRINT : PRINT " YOU ^MADE ^" ; MO; " ^MOVES' 1 

CC=0:FOR 1=1 TO NR: IF E ( I) =0 THEN CC=CC+1 

NEXT I 

PRINT : PRINT "AND ^DESTROYED ^"; CC; " ^ROBOTS" 



10 



10 
10 



10 
10 



10 
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9020 GDSUB 10000: RETURN 

9500 REM PLAYER HIT A MINE 

9505 PRINT CHR* < 125) ; "YOU ^HIT^A ..SUBATOMIC ..MINE" 

9510 PRINT : PRINT "YOUR ,.MOLOCULES ..ARE ^NOW ^ORBITING ^THE" 

9512 CC=0:FOR 1=1 TO NR: IF E ( I ) =0 THEN CC=CC+1 

9513 NEXT I 

9515 PRINT -.PRINT "EARTH !!!!!": PRINT 

9520 PRINT "YOU^MADE^"; MO; " ^MOVES" : PRINT 

9525 PRINT "AND ^DESTROYED .."-. CC; " ^ROBOTS" : GOSUB 10000: RETURN 

9900 REM ALL ROBOTS BONE 

9905 PRINT CHRSU25) ; "YOU ...HAVE ^DESTROYED _ ALL ^.THE ..ROBOTS" -. 

— PRINT 
9910 PRINT "IT ..TOOK ..YOU.."; MO; " ..MOVES" : PRINT 
9915 GOSUB 10000: GOTO 10 

10000 PRINT : PRINT "PRESS ^ J OYST I CK ..TRIGGER .. TO ..REST ART ..GAME" 
10005 B=STRIG(JO) : IF B=l THEN 10005 
10010 RETURN 
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ChexSum Tables 



20 = 40 3B20 = 10-76 

21 = 405 ~" = ^ 6 6310 = 962 

40 = 333 ^ = ^ 6312 = 968 

60 = 175i 4000 = 465 632B = 1211 

70 = 1457 ™ = *£ 8020 = 777 

80 = 1291 H% = £\ 8030 = 1379 

90 = 1381 2Hl = J;?! 80/ H2 = 175 

100 = 1405 ££ = \£l 8050 = 682 

120 = 1916 ™~£ , ™f 8060 = 58 

130 = 516 4030 = 708 !=SS = 2688 

150 = 530 4040 = Sj2j = 1---62 

160 = 532 IZZZ _ T^ 8530 = 1360 

165 = 881 I™ I ^ 8535 - 1362 

170 = 796 5000 = ^246 !=™ = 1044 

180 = 406 „," _ :„, 8545 = 1937 

1000 = 1204 5 01 10 Z ^ 8550 = 606 

1010 = 1258 50 ^0 _ VZ]/ 8560 = 967 

1B20 = 1861 ^ I ^95 8570 = 2532 

1025 = 1703 50^ _ ^ 9005 = 2855 

1030 = 442 ™g I™ 9010 = 1379 

%ll : ^ ! 012 - 1877 

1040 = 1959 , mm Z _ ^- 9013 = 175 

1050 = 1573 ^010 : 96^ 9B15 = 1857 

1060 = 365 2Si? = 96i 9020 = 187 

1070 = 1460 60 ,0 . *™ 9505 = 2046 

1099 = 58 TfZZ = l^l 1 9510 = 2679 

2000 - 253 6106 = 503 ?2! 2 = !f; 77 

202 ^ = *== 6107 = i603 l*\Z I ^E 

2027 = 2256 6110 = <-,-, 9^1j - 76o 

2028 = 661 ?;;" _ *!£ 9520 - 1379 

2029 = 748 I J™ I ?S 8 . 9525 = 2028 

2030 = 1549 6 2B5 = ^ 9905 = 2822 
2040 = 2200 £206 = 5^ 9910 = 1612 

S : ?i 7 % ™l = £ B i00 - = -- 

2070 = 2114 ^,J; Z oTq" 10005 = 984 

2099 = 58 lz4 I lt lt 10010 = 58 

3000 = 461 6305 = ^ 

3007 = 1215 6 - 06 = ; t 

3010 = 1248 L^ 6 = ^ TOTAL - 127177 
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Turn your Atari into an exciting arcade of electronic fun 
and thrills with the easy-to-enter ready-made programs 
in this book. Containing 30 different games designed to 
demonstrate the complete capabilities of the Atari 
130XE — arcade games, strategy games and 
adventures are all here for you to enjoy — without the 
need for any complex programming skills! 

Each game includes a screen photo, to illustrate exactlv 
what the program will look like, and the unique 
CHEXSUM facility, to avoid those costly typing errors. 

For the benefit of more advanced programmers, there is 
a full outline of what each program is doing, enabling 
you to modify the games to suit your own 
specifications. 

Now the best games book is available for the Atari 
130XE opening the door to a fascinating new dimension 
of computer games, action and excitement. 



COMPATIBLE WITH THE ATARI 800XL 



£6.95 
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